|
▼加文 さん:
こんばんは
アップされたコードで、どのよな条件の下で説明のあった現象になるのか
いろいろ考えたのですが、・・・・
ちょっと気になるのは、
>ここには、『書店用マスターファイル』などのファイル名です。
これで、Workbooks(FileName).Activate としたとき、インデックスエラーにはなっていないのですか?
ともあれ、よく状況がわかりませんので、以下のコードは、このようにしたら大丈夫じゃないでしょうかと
いったものです。FileName には 書店用マスターファイル.xlsx(あるいは書店用マスターファイル.xls)
といったように拡張子付きで文字列が入っているという前提です。
(要件を推測して書いているところが多々あります。これは違うよということなら指摘願います)
Sub Sample()
Dim myPath As String
Workbooks(Filename).Worksheets("登録").Copy
myPath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\データ登録用フォルダ\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=myPath & Split(Filename, ".")(0) & ".csv", FileFormat:=xlCSV _
, CreateBackup:=False, Local:=True
ActiveWorkbook.Close False
Application.DisplayAlerts = True
' Workbooks(Filename).Close False 'もし閉じるならこのコメントをはずす
End Sub
|
|