エクセルのマクロでファイル名のつけ方

質問

あるセルの文字列を、マクロで
ファイル名にして保存するにはどうしたらよいでしょうか。マクロの知識は記録修正ぐらいしかありませんが、
ご教授お願いします。

実験データが数百ありまして、
それを分割保存したいのです。

分割保存で最後 Sendkeys "%FA"とするところまでは
分かったのですが、できればファイル名もマクロで保存できたらすばらしいのですが。。。

回答No.4

hana-hana3 · ベストアンサー

＞あるセルの文字列をファイル名にしたい場合

前の文では、ちょっとタイプミスして申し訳ありません。

Fneme = Range("A2")
SendKeys "%FA" & Fname & "{ENTER}"

本来なら、＃２さんの SaveAs で処理する方が良いと思いますよ。

ActiveWorkbook.SaveAs Filename:= PathName & FileName

回答No.3

TTak

アクティブなブックのシート(1)のセルA1の名前をファイル名にして保存するマクロです。保存される場所は、アクティブなファイルが保存してある場所と同じフォルダです。

Sub THSFILE_SAVE()
Dim myFname0 As String
Dim myFname As String
On Error GoTo ERRH
With ActiveWorkbook
　myFname0 = .Name
　myFname = .Sheets(1).Range("A1").Value
　.SaveAs Filename:=.Path & "\" & myFname
End With
Exit Sub
ERRH:
End Sub

お礼

返事をわすれていました。
ご丁寧にありがとうございました。

回答No.2

merlionXX

Sendkeysじゃないやり方。

たとえば

ActiveWorkbook.SaveAs Filename:=C:\Documents and Settings\******\My Documents\ファイル名

補足

お返事ありがとうございます。

この文は、マクロ記録で出てきていました。

さらに自動でできてほしいのは
あるセルの文字列をファイル名する操作なんです。

この場合、セルの文字列を呼び出さなければならないのですが、
これはどのようにすればできるのでしょうか？

マクロ記録でいろいろ試したのですが、
この文を見つけることはできませんでした。

回答No.1

hana-hana3

＞分割保存で最後 Sendkeys "%FA"とするところまでは
分かったのですが、

Fnema = "file001"
SendKeys "%FA" & Fname & "{ENTER}"

補足

お返事ありがとうございます。
教えて頂いたとおりにすると
ファイル名が「file001]のファイルが保存できました。
ただ、あるセルの文字列をファイル名にしたい場合は
セルの文字列を呼び出さなければならないのですが、
これはどのようにすればできるのでしょうか？

マクロ記録でこの文を出させることができませんでした。