Excel VBA質問箱 IV

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

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


8972 / 76732 ←次へ | 前へ→

【73328】Re:空ファイルがセーブされます
発言  UO3  - 12/12/20(木) 21:09 -

引用なし
パスワード
   ▼加文 さん:

こんばんは

アップされたコードで、どのよな条件の下で説明のあった現象になるのか
いろいろ考えたのですが、・・・・

ちょっと気になるのは、

>ここには、『書店用マスターファイル』などのファイル名です。

これで、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

220 hits

【73325】空ファイルがセーブされます 加文 12/12/20(木) 17:06 質問
【73326】Re:空ファイルがセーブされます UO3 12/12/20(木) 17:32 発言
【73327】Re:空ファイルがセーブされます 加文 12/12/20(木) 17:58 発言
【73328】Re:空ファイルがセーブされます UO3 12/12/20(木) 21:09 発言
【73330】Re:空ファイルがセーブされます 加文 12/12/21(金) 9:24 お礼

8972 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free