0
フォルダを作成し、VBAのそのフォルダに自動テキストファイルを保存したいとします。私は自動的にデータを含むファイルを作成するコードを書いたので、ファイルをユーザー定義のフォルダに保存したい。以下は、私が試してみましたが、それは動作しないコードは、次のとおりです。フォルダーを作成し、そのフォルダーに生成されたテキストファイルをVBAで保存する方法は?
Sub test()
'Declaring variables
Dim equipID As String, destgroup As String, sourceparmname As String, descript As String
Dim lsb As Integer, msb As Integer, signed As String, sformat As String, units As String
Dim scalefact As Variant, numbits As Integer, decim As Integer
Dim ssystem As String
Dim vDB
Dim FName As String, stream As TextStream
Dim fso As Scripting.FileSystemObject, NewFolderPath As String
'Retrieve Target Folder Path From User
NewFolderPath = Application.GetSaveAsFilename("")
Set fso = New Scripting.FileSystemObject
If Not fso.FolderExists(NewFolderPath) Then
fso.CreateFolder NewFolderPath
End If
'Create txt file
Set stream = fso.CreateTextFile("NewFolderPath\test.txt")
..........
私は任意の入力/提案をいただければ幸いです:)
は、事前にありがとうございます!
驚くばかりを使いたいです!私は何か小さいことが分かっていたことを知っていた。どうもありがとうございました :) – Jesus