エクセルＶＢＡでテキスト保存

質問

エクセルのファイルをメモ帳で保存する場合に下記のコードが書いてあります。

strFILENAME = xlAPP.GetSaveAsFilename(InitialFileName:="データxxx_yyy_zzz.txt",FileFilter:=cnsFILTER, Title:=cnsTITLE)

このうち、ファイル名の"データxxx_yyy_zzz.txt"、xxx,
yyy,zzzをそれぞれ、特定のセルから取得したい場合、どのように直せばいいのでしょうか？

ｘｘｘ＝Ａ1セル
ｙｙｙ＝Ａ２セル
ｚｚｚ＝Ａ３セル
といった感じです。
よろしくお願いします。

回答No.1

toshi_2010 · ベストアンサー

strFILENAME = xlAPP.GetSaveAsFilename(InitialFileName:="データ " & Cells(1,1).value & Cells(1,2).value & Cells(1,3).value & ".txt",FileFilter:=cnsFILTER, Title:=cnsTITLE)

としたらどうでしょう。

回答No.4

watabe007

>"データxxx_yyy_zzz.txt"
　　　↓
"データ" & Join(Application.Transpose(Range("A1:A3")), "_") & ".txt"

回答No.3

bin-chan

strFILENAME = xlAPP.GetSaveAsFilename(InitialFileName:="データ" & Range("A1") & "_" & Range("A2") & "_" & Range("A3") ".txt",FileFilter:=cnsFILTER, Title:=cnsTITLE)

ブック・シートが複数ある場合は
ThisWorkBook.Sheets("Sheet1").Range("A1")
のような修飾が必要になることもあります。

回答No.2

wkbqp833

(略):="データ" & Ragne("A1").Value & "_" & Ragne("A2").Value　& "_" & Ragne("A3").Value & ".txt",FileFilter:=cnsFILTER, Title:=cnsTITLE)
でいいかと