[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)

Excel VBA 質問スレ Part68 http://mevius.5ch.net/test/read.cgi/tech/1598756127/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

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

---

7: デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) [] 2020/08/30(日) 21:02:31 ID:Cc0wen40a すみません。何とか事故解決しました。 もしこう書けばより良いとアドバイス頂けたら幸いです。 Sub fun() Dim fso, file, files Dim folderPath As String: folderPath = "G:\Test\" Set fso = CreateObject("Scripting.FileSystemObject") Set files = fso.GetFolder(folderPath).files Dim j As Integer For Each file In files Dim wb As Workbook 'Set wb = Workbooks.Open(file) Dim ts As Object Set ts = fso.OpenTextFile(file) Dim i As Integer: i = 1 j = j + 1 Do Until ts.AtEndOfStream Cells(j, i).Value = ts.ReadLine i = i + 1 Loop ts.Close 'Call wb.Close(SaveChanges:=False) Next file End Sub http://mevius.5ch.net/test/read.cgi/tech/1598756127/7

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.019s