2017-10-16 16 views
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") 

.......... 

私は任意の入力/提案をいただければ幸いです:)

は、事前にありがとうございます!

答えて

0

あなたの声明

Set stream = fso.CreateTextFile("NewFolderPath\test.txt") 

は、現在のディレクトリ内の「NewFolderPath」というフォルダ内の「test.txtの」と呼ばれるファイルを作成しようとしています。

あなたは

Set stream = fso.CreateTextFile(NewFolderPath & "\test.txt") 
+0

驚くばかりを使いたいです!私は何か小さいことが分かっていたことを知っていた。どうもありがとうございました :) – Jesus

関連する問題