Excel VBA 質問スレ Part68

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ dbda-8BP0) 2020/08/30(日) 11:55:27.33 ID:Oy/VxFsh0]

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

※前スレ
Excel VBA 質問スレ Part67
https://mevius.5ch.net/test/read.cgi/tech/1593104489/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[2 デフォルトの名無しさん (ﾜｯﾁｮｲ 06c9-1etN) 2020/08/30(日) 12:04:22.80 ID:y5djTSPl0]

IEの代わりは何使えばいいの？

[3 デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-Rexm) 2020/08/30(日) 12:07:17.32 ID:IcnEVpl4a]

乙

[4 デフォルトの名無しさん (ｽｯｯﾌﾟ Sd22-WkEz) 2020/08/30(日) 12:41:50.27 ID:wybDtxdZd]

以下の特徴を持つ書き込みは無視するか罵倒されます。

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

[5 デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日) 20:36:42.00 ID:Cc0wen40a]

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

[6 デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日) 20:37:09.10 ID:Cc0wen40a]

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)
Line Input #fileToOpen, textLine
Cells(1, i).Value = textLine
i = i + 1
Wend
End Sub

[7 デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日) 21:02:31.41 ID:Cc0wen40a]

すみません。何とか事故解決しました。
もしこう書けばより良いとアドバイス頂けたら幸いです。
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
'Set wb = Workbooks.Open(file)

Dim ts As Object
Set ts = fso.OpenTextFile(file)
Dim i As Integer: i = 1
j = j + 1
Do Until ts.AtEndOfStream
Cells(j, i).Value = ts.ReadLine
i = i + 1
Loop
ts.Close
'Call wb.Close(SaveChanges:=False)
Next file
End Sub

[8 デフォルトの名無しさん (ﾜｯﾁｮｲ 29e5-pBCo) 2020/08/30(日) 22:17:56.28 ID:dZGkK/a70]

入門レベルで横槍入れるようで申し訳ないのですが
forループ以前とループ内でのDim〜は何が違いますか？

[9 デフォルトの名無しさん (ﾜｯﾁｮｲ a5ce-xiBb) 2020/08/30(日) 23:52:40.61 ID:RQLT4uuu0]

>>8
違いは見やすさだけ
機能はどこに書いても同じ
マイクロソフトは最初にまとめて書けと言ってる

[10 デフォルトの名無しさん (ﾜｯﾁｮｲ a5ce-xiBb) 2020/08/30(日) 23:59:24.87 ID:RQLT4uuu0]

>>7
宣言と初期化を一度に書きたくなる気持ちはわかるけど、マルチステートメントはやめた方がいい

[11 デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMca-ftwo) 2020/08/31(月) 00:06:45.91 ID:SE//WJVaM]

誰に言われるまでもなく上に全部まとめて宣言しているわ
違うプロシージャにそのままコピペで流用して使わないのは消すだけ

[12 デフォルトの名無しさん (ﾜｯﾁｮｲ c13d-7m6G) 2020/08/31(月) 00:13:33.38 ID:TQg4kwht0]

>>7
Cellsの前にはワークシート名書いといた方が絶対にいいよ
CodeNameでいいから前に書いときな

[13 デフォルトの名無しさん (ﾜｯﾁｮｲ 45cc-pyQU) 2020/08/31(月) 19:07:17.70 ID:Lt7FggAF0]

Ｂ列に"2020/8/1"のように日付が入っていて
Ｂ列に"発行日"&和暦を入力したいのですが、年・月・日がそれぞれ１桁の場合は頭に０が入ってしまします。
１桁の場合は、０の代わりに半角スペースにしたいのですがどう書けばいいですか

Dim r As Long

For r = 1 To Cells(Rows.Count,1).End(xlUp).Row
Cells(r,2).Value = Format(CDate(Cells(r,1)), "ggge年m月d日")
Next r