[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

810(1): 2019/09/20(金)13:07 AA×
>>808


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
810: [sage] 2019/09/20(金) 13:07:32.49 >>808 Dim path As String Dim ws1 As Worksheet Dim wb As Workbook Dim ws2 As Worksheet With ThisWorkbook path = Dir(.path & "\請求書\*.xls") Set ws1 = .Worksheets("請求一覧") End With Do While path <> "" Set wb = Workbooks.Open(path) Set ws2 = wb.Sheets("Sheet1") ws2.Range("a2:k" & ws2.Cells(Rows.Count, 1).End(xlUp).Row).Copy ws1.Range("a" & ws1.Cells(Rows.Count, 1).End(xlUp).Row + 1) wb.Close (False) path = Dir() Loop 試しに"請求書"フォルダに"20"・"25"・"30"というXLSファイルを入れて試したのですが 実行時エラー'1004': 申し訳ございません。20.XLSが見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。 がでて処理が止まります。 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/810
請求書 請求一覧 試しに請求書フォルダにというファイルを入れて試したのですが 実行時エラー 申し訳ございませんが見つかりません名前が変更されたか移動や削除が行われた可能性があります がでて処理が止まります

---

上下前次1-新書関写板覧索設栞歴

---

あと 192 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.102s