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