Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61013 / 76732

←次へ　｜　前へ→


	【20346】Re:同一フォルダ内に保存しているファイルをＥＸＣＥＬシートに追加読み込み

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】同一フォルダ内に保存しているファイルをＥＸＣＥＬシートに追加読み込み ムシキング 04/12/5(日) 14:40