Excel VBA 質問スレ Part67

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ 33da-3+hg) 2020/06/26(金) 02:01:29.56 ID:uDfmpksE0]

!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

[992 デフォルトの名無しさん (ﾜｯﾁｮｲ 06c9-1etN) 2020/08/29(土) 22:40:12.57 ID:LkUYL8wZ0]

>>961
これ、マジで困るわ・・・

[993 デフォルトの名無しさん (ﾜｯﾁｮｲ 6e63-mUq2) 2020/08/29(土) 23:53:21.40 ID:wkbqrDC+0]

サポート終了なんだからいつまでもIE使ってんじゃねえよ

[994 デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM66-nUCc) 2020/08/30(日) 00:09:48.26 ID:HNjVBgM5M]

>>985
Accessでやって下さい

[995 デフォルトの名無しさん (ﾜｯﾁｮｲ 6e63-8BP0) 2020/08/30(日) 07:04:48.97 ID:ZpZWI99c0]

IE制御で作る
てどういう意味です？

[996 デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日) 08:58:33.06 ID: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

[997 デフォルトの名無しさん (ﾜｯﾁｮｲ 6101-cCp/) 2020/08/30(日) 09:03:16.96 ID:YG+IT5u+0]

Open "C:\Sample\Data.txt" For Input As #1
Line Input #1, buf
Close #1

[998 デフォルトの名無しさん (ﾜｯﾁｮｲ a2bc-n2Os) 2020/08/30(日) 09:03:41.78 ID:yRrMkFD60]

フォルダーパスの最後に/足してみては？

[999 デフォルトの名無しさん (ﾜｯﾁｮｲ 6101-cCp/) 2020/08/30(日) 09:05:06.49 ID:YG+IT5u+0]

フォルダとファイルの間に/がないとか

[1000 デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日) 09:13:38.94 ID:IZ41nY3ca]

フォルダパスに"\"が入っていませんでした。
ありがとうございます！