Excel VBA 質問スレ Part68

[過去ﾛｸﾞ] 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

8(1): (ﾜｯﾁｮｲ 29e5-pBCo) 2020/08/30(日)22:17 ID:dZGkK/a70(1) AAS
入門レベルで横槍入れるようで申し訳ないのですが
forループ以前とループ内でのDim〜は何が違いますか？

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

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

ぬこの手ぬこTOP 0.030s