!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part66
https://mevius.5ch.net/test/read.cgi/tech/1589085825/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
Excel VBA 質問スレ Part67
レス数が1000を超えています。これ以上書き込みはできません。
1デフォルトの名無しさん (ﾜｯﾁｮｲ 33da-3+hg)
2020/06/26(金) 02:01:29.56ID:uDfmpksE0995デフォルトの名無しさん (ﾜｯﾁｮｲ 6e63-8BP0)
2020/08/30(日) 07:04:48.97ID:ZpZWI99c0 IE制御で作る
てどういう意味です？
てどういう意味です？
996デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp)
2020/08/30(日) 08:58:33.06ID:IZ41nY3ca テキストファイルを読み込もうとしているのですが、ファイルがないとエラーが出ます。なにが原因でしょうか？
Sub func()
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)
Line Input #fileToOpen, textLine
Cells(i, "A").Value = textLine
i = i + 1
Wend
End Sub
Sub func()
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)
Line Input #fileToOpen, textLine
Cells(i, "A").Value = textLine
i = i + 1
Wend
End Sub
997デフォルトの名無しさん (ﾜｯﾁｮｲ 6101-cCp/)
2020/08/30(日) 09:03:16.96ID:YG+IT5u+0 Open "C:\Sample\Data.txt" For Input As #1
Line Input #1, buf
Close #1
Line Input #1, buf
Close #1
998デフォルトの名無しさん (ﾜｯﾁｮｲ a2bc-n2Os)
2020/08/30(日) 09:03:41.78ID:yRrMkFD60 フォルダーパスの最後に/足してみては？
999デフォルトの名無しさん (ﾜｯﾁｮｲ 6101-cCp/)
2020/08/30(日) 09:05:06.49ID:YG+IT5u+0 フォルダとファイルの間に/がないとか
1000デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp)
2020/08/30(日) 09:13:38.94ID:IZ41nY3ca フォルダパスに"\"が入っていませんでした。
ありがとうございます！
ありがとうございます！
10011001
Over 1000Thread このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 65日 7時間 12分 10秒
新しいスレッドを立ててください。
life time: 65日 7時間 12分 10秒
レス数が1000を超えています。これ以上書き込みはできません。
