2016-03-29 17 views
-1

VBAコードを使用してテキストファイルを作成するときに、必要なファイル名を入力できるセルからファイルの名前を取得します。 fso.CreateTextFileコマンドでどのように参照するのですか?fextファイル名を指定する方法

は[そのコマンドを使用して文字列名を指定する方法についてはこちらを読む] ... FSOオブジェクトに

+0

を範囲をありがとう(https://msdn.microsoft.com /en-us/library/aa265018%28v=vs.60%29.aspx)。他のVBAメソッドを使用して、その文字列をワークシートのセルアドレスと同じに設定できます。 – Dan

+0

まだ問題があります。以下は私のコードで、testfilename.txtの代わりにシートのM1セルから名前を取得します。 どうすればいいですか? Scripting.TextStream としてScripting.FileSystemObjectオブジェクトとして サブSilverIssueAm() 薄暗いFSOは 薄暗いTS設定しFSO =新Scripting.FileSystemObjectオブジェクト セットTS = fso.CreateTextFile( "C:\ Users \ユーザーmary_brown \デスクトップ\ VBA \のtestfilename .txt ") End Sub – iwonarm

答えて

0

リファレンス

Sub textfile() 

    Set fs = CreateObject("Scripting.FileSystemObject") 
    Set a = fs.CreateTextFile(Range("B9"), True) 
    a.WriteLine ("This is a test.") 
    a.Close 

End Sub 
+0

まだ問題があります。以下は私のコードで、testfilename.txtの代わりにシートのM1セルから名前を取得します。 どうすればいいですか? Scripting.TextStream としてScripting.FileSystemObjectオブジェクトとして サブSilverIssueAm() 薄暗いFSOは 薄暗いTS設定しFSO =新Scripting.FileSystemObjectオブジェクト セットTS = fso.CreateTextFile( "C:\ Users \ユーザーmary_brown \デスクトップ\ VBA \のtestfilename .txt ") End Sub – iwonarm

+0

WinginSueが親切に提供したスクリプトを試してください –

+0

@iwonarm、a = fs.CreateTextFile(" C:\ Users \ mary_brown \ Desktop \ VBA \ "&Replace(範囲(" B9 ")) .Text、 ".txt"、 "")& ".txt"、True) –

関連する問題