| |
こんにちは。かみちゃん です。
>・ファイル名１
>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ファイルは保存する必要があるのでしょうか？
ないのならば、保存せずに閉じてしまうのではいけないのでしょうか？
|
|
かみちゃん
- 09/11/15(日) 12:09 -
