Excel VBA 質問スレ Part48


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

371 名前：どなたか助けてください ブック内の約200シートを全て個別のcsvファイルに保存したいのですが、 うまくいきません。 エクセルファイルと同じフォルダにシート名＋".csv"という名前の CSVファイルを作成することが条件です。 ググって 下記は出てくるのですが、実行してもエラーが出てしまい CSVにはき出すことが出来ません。 (こちらの環境がMacだからなのでしょうか？) どこを修正すれば正しく、csvにはき出せるかご教示ください！ Sub SaveCsv() Dim mySheet As Worksheet For Each mySheet In ActiveWindow.SelectedSheets ActiveWorkbook.SaveAs Filename:= _ ActiveWorkbook.Path & "¥" & mySheet.Name & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False Next End Sub エラー文 実行時エラー '1004': 'Sheet183.csv' にアクセスできません。 []: [ここ壊れてます]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef