|
かみちゃん さん ありがとうございました。
日付のところはdataのformatをかませていなかったので
エラーになっていました。
保存のところなのですが、こちらは上手くいかないです。
現状だとマクロの記憶で
下記の動作を行っています。
1、sheet2を選択
2、名前をつけて保存(この場面でCSVファイル指定)
ここまでの動作でマクロを記憶しているファイル自体が
すでにCSVファイルになってしまっているので、
(Sheet2がCSV保存した段階でブック名になっている)
その後が上手くいきません。
理想としては
Sheet1にコマンドボタンを設定し、
ボタンを押すと、Sheet2はシート名がsheet2のそのままの状態で
同じフォルダ内にCSVファイルだけが吐き出されるようにしたいです。
たびたびすいませんが宜しくお願いします。
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>・ファイル名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ファイルは保存する必要があるのでしょうか?
>ないのならば、保存せずに閉じてしまうのではいけないのでしょうか?
|
|