[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新

---

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

---

1(1): (ﾜｯﾁｮｲ dbda-8BP0) 2020/08/30(日)11:55 ID:Oy/VxFsh0(1) AAS
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part67
2chｽﾚ:tech VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

---

2(1): (ﾜｯﾁｮｲ 06c9-1etN) 2020/08/30(日)12:04 ID:y5djTSPl0(1) AAS
IEの代わりは何使えばいいの？

---

3(1): (ｱｳｱｳｴｰ Sa0a-Rexm) 2020/08/30(日)12:07 ID:IcnEVpl4a(1) AAS
乙

---

4: (ｽｯｯﾌﾟ Sd22-WkEz) 2020/08/30(日)12:41 ID:wybDtxdZd(1) AAS
以下の特徴を持つ書き込みは無視するか罵倒されます。

・「教えて」「助けて」で始まる質問者の頭が悪いことが容易にわかる質問
・自分で考えるともせず全部作ってもらおうとする厚かましい質問
・VBA、マクロに関係ないExcelの質問
・自分のために利用するだけ利用してやろうと、後出しで条件を付け加える人

---

5: (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日)20:36 ID:Cc0wen40a(1/3) AAS
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)
省5

---

6: (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日)20:37 ID:Cc0wen40a(2/3) AAS
Sub test()
Dim folderPath As String: folderPath = "G:\Test\"
Dim textLine, fileName As String
Dim fileToOpen As Integer
Dim i As Integer
fileName = folderPath & "01.txt"
fileToOpen = FreeFile()

Open fileName For Input As fileToOpen

i = 1

While Not EOF(fileToOpen)
省5

---

7(2): (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日)21:02 ID:Cc0wen40a(3/3) AAS
すみません。何とか事故解決しました。
もしこう書けばより良いとアドバイス頂けたら幸いです。
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
省13

---

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

---

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

---

ぬこの手 ぬこTOP 0.025s