|
こんにちは。かみちゃん です。
>・ファイル名1
>CSVファイルはブック名+時間で表示したいため、
>Thisworkbook.Name + Date と書き換えてみたのですが、エラーになってしまいました。
どのようなコードで、どのようなエラーになったのでしょうか?
一例としては、以下のような感じです。
Sub SampleTest()
Dim strFileName As String
strFileName = ThisWorkbook.FullName
strFileName = Mid(strFileName, 1, InStrRev(strFileName, ".") - 1)
strFileName = strFileName & Format(Date, "yyyymmdd") & ".csv"
MsgBox "ファイル名は" & vbCrLf & strFileName
End Sub
>この方法だとexcel保存時にはファイル名がThisworkbook.Nameだと日付も
>ついてしまったものになってしまうため、困まります。
CSVファイルを保存した後、元のExcelファイルは保存する必要があるのでしょうか?
ないのならば、保存せずに閉じてしまうのではいけないのでしょうか?
|
|