|
▼UO3 さん:
おはようございます。
結論から言うと、上手くいきました。有り難うございました。
>これで、Workbooks(FileName).Activate としたとき、インデックスエラーにはなっていないのですか?
ここは、エラーにはなりません。.xls付きのファイルが入っています。
> myPath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\データ登録用フォルダ\"
> ActiveWorkbook.SaveAs Filename:=myPath & Split(Filename, ".")(0) & ".csv", FileFormat:=xlCSV _
> , CreateBackup:=False, Local:=True
この使い方は勉強になります。といっても、まだ全然理解できておりませんが。
これだと、元のファイル自体をいじらずにCSVファイルが作れますので、賢いやり方ですね。今後、この方法を利用されて頂きます。
今回、有用なご指摘いただきまして有り難うございました。
今後とも、宜しくお願い申し上げます。
|
|