VBAコードを使用してテキストファイルを作成するときに、必要なファイル名を入力できるセルからファイルの名前を取得します。 fso.CreateTextFileコマンドでどのように参照するのですか?fextファイル名を指定する方法
は[そのコマンドを使用して文字列名を指定する方法についてはこちらを読む] ... FSOオブジェクトに
VBAコードを使用してテキストファイルを作成するときに、必要なファイル名を入力できるセルからファイルの名前を取得します。 fso.CreateTextFileコマンドでどのように参照するのですか?fextファイル名を指定する方法
は[そのコマンドを使用して文字列名を指定する方法についてはこちらを読む] ... FSOオブジェクトに
リファレンス
Sub textfile()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Range("B9"), True)
a.WriteLine ("This is a test.")
a.Close
End Sub
まだ問題があります。以下は私のコードで、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
WinginSueが親切に提供したスクリプトを試してください –
@iwonarm、a = fs.CreateTextFile(" C:\ Users \ mary_brown \ Desktop \ VBA \ "&Replace(範囲(" B9 ")) .Text、 ".txt"、 "")& ".txt"、True) –
を範囲をありがとう(https://msdn.microsoft.com /en-us/library/aa265018%28v=vs.60%29.aspx)。他のVBAメソッドを使用して、その文字列をワークシートのセルアドレスと同じに設定できます。 – Dan
まだ問題があります。以下は私のコードで、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