Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32398 / 76734

←次へ　｜　前へ→


	【49573】ファイル名によって保存が失敗します

にゃこ - 07/6/11(月) 17:15 -


	引用なし

	パスワード

こんにちは。
また分からなくなってしまいました。

下のように、同じフォルダー内のcsvファイルを一つのxlsファイルにまとめようとしたのですが。。。
なぜかfile_nameを変えると成功したりしなかったりします。
A1に今日の日付を入れて、「にゃー2007/06/11.xls」で保存したいのですが。
日付を諦めて「にゃー.xls」ならなぜかうまくいきます。
date_1がなにか邪魔してるんでしょうか？

原因を教えていただけないでしょうか。
よろしくお願いします。

Sub Nya-()

Application.ScreenUpdating = True　チカチカする
　　flg = True
　　file_path = ActiveWorkbook.Path　　'このファイルのあるフォルダー
　　csv_name = Dir(file_path & "\*.csv", vbNormal)
　　date_1 = ActiveWorkbook.ActiveSheet.Range("A1")　'A1の日付
　　file_name = "にゃー" & date_1

　　'csvファイルを開いてコピーをくりかえす
　　Do While csv_name <> ""
　　
　　　　'csvを開く
　　　　Workbooks.OpenText _
　　　　　　Filename:=file_path & "\" & csv_name, _
　　　　　　DataType:=xlDelimited, Comma:=True
　　　　　　
　　　　　　'flgで一回だけ新規ブックを作る
　　　　　　If flg = True Then
　　　　　　　　Workbooks(csv_name).Worksheets(1).Copy
　　　　　　　　now_file = ActiveWorkbook.name
　　　　　　　　Workbooks(csv_name).Close
　　　　　　　 flg = False
　　　　　　'２回目からはそのブックにコピーしていく
　　　　　　Else
　　　　　　　　Workbooks(csv_name).Worksheets(1).Copy _
　　　　　　　　　　after:=Workbooks(now_file).ActiveSheet
　　　　　　　　Workbooks(csv_name).Close
　　　　　　End If
　　
　　　　　　csv_name = Dir()　　　　　

　　Loop
　　
　　If file_name = "" Then
　　　　MsgBox "フォルダ内にcsvファイルが無いです(>_<)"
　　Else
　　　　Workbooks(now_file).saveas Filename:=file_path & "\" & file_name
　　　　Application.Windows.Arrange _
　　　　　　Arrangestyle:=xlArrangeStyleCascade
　　End If
End Sub

4 hits

▼

【49573】ファイル名によって保存が失敗します にゃこ 07/6/11(月) 17:15

≪