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

---

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

---

808(2): 2019/09/20(金)00:43 AAS
>>807
コピペだけを「使える」とは言わない
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
省8

---

810(1): 2019/09/20(金)13:07 AAS
>>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 <> ""
省10

---

828(1): 807 2019/09/21(土)20:27 AAS
>>808
>>811

どの部分を直せばよいでしょうか？

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.652s*