Excel VBA質問箱 IV

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

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


61019 / 76738 ←次へ | 前へ→

【20346】Re:同一フォルダ内に保存しているファイルをEXCELシートに追加読み込み
回答  Hirofumi  - 04/12/6(月) 19:40 -

引用なし
パスワード
   あ!、まだ言い忘れが有った
「Voidingカウント一覧」は、Sheet1に作成されます
其れに伴い、以下の部分を追加して下さい

「Public Sub ReadRle()」の中で、

 ・
 ・
  '新規Bookを追加
  Set wkbNewBook = Workbooks.Add
  Set wksVoiding = wkbNewBook.Worksheets("Sheet1")
  lngVoidingRow = 1
  wksVoiding.Cells(lngVoidingRow, "A").Resize(, 4).Value _
      = Array("Folder", "FileName", "Voiding", "Voiding累計")
  lngVoidingRow = lngVoidingRow + 1
  wksVoiding.Name = "Voidingカウント一覧" '★この行追加
  'Voidingカウント用の変数を初期化
 ・
 ・
    '新規Bookに書き込み用シートを追加
    With wkbNewBook.Worksheets
      Set wksNewSheet = .Add(After:=.Item(.Count))
    End With
    strPath = objFso.GetParentFolderName(vntFileNames(1))
    wksVoiding.Cells(lngVoidingRow, 1).Value = strPath
    vntVoiding(3) = 0 '★この行追加
    '書き込み行の初期値
 ・
 ・

また、使い方で、「ファイルを開く」ダイアログのキャンセルボタンを押すと
マクロが、終了しますのでヨロシク

0 hits

【20321】同一フォルダ内に保存しているファイルをEXCELシートに追加読み込み ムシキング 04/12/5(日) 14:40 質問
【20324】Re:同一フォルダ内に保存しているファイル... [名前なし] 04/12/5(日) 15:01 発言
【20326】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/5(日) 15:27 発言
【20328】Re:同一フォルダ内に保存しているファイル... [名前なし] 04/12/5(日) 16:33 回答
【20329】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/5(日) 17:27 回答
【20330】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/5(日) 21:50 回答
【20331】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/5(日) 23:22 発言
【20344】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/6(月) 19:15 回答
【20345】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/6(月) 19:22 回答
【20346】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/6(月) 19:40 回答
【20348】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/6(月) 22:41 質問
【20382】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/7(火) 19:26 回答
【20477】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/9(木) 23:01 発言
【20515】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/10(金) 21:04 回答
【20676】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/14(火) 20:39 お礼
【20677】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/14(火) 21:17 回答

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