ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

Excel VBA 質問スレ Part68

PC,ｽﾏﾎ,PHSは 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>5 > Testフォルダの中に複数のテキストファイルがあり、それぞれのテキストファイルの中身を１つのエクセルシートに取り込みたいのですが、うまくいきません。 > test()をfunc()の中で使えないか考えています。 > Sub fun() > Dim fso, file, files > Dim folderPath As String: folderPath = "G:\Test\" > Set fso = CreateObject("Scripting.FileSystemObject") > Set files = fso.GetFolder(folderPath).files > > For Each file In files > Dim wb As Workbook > 'Set wb = Workbooks.Open(file) > > Dim ts As Object > Set ts = fso.OpenTextFile(file, ForReading) > > 'Call wb.Close(SaveChanges:=False) > > Next file > End Sub
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.013s