VBAでテキストファイルを開いてCSVに変換するというプログラムを書いています。
まだ途中ですが、
新規シートを作成する際に、
Worksheet.Add After:=Worksheets(Worksheets.Count).Name = sheet_name
のところで、「オブジェクトが必要です」とのエラーが出てしまいます。
対応策のご教示をいただきたいです。
型の指定の仕方に問題があるのでしょうか?
VBA
1コード
Private Sub DataConvertion_Click()
Dim buf As String, cnt As Long Dim file_add As String Dim path As String, n As Long, i As Long Dim file_path As String file_add = Cells(3, 4).Value path = file_add & "\" buf = Dir(path & "*.txt") file_path = file_add & "\" & buf Do While file_path <> "" cnt = cnt + 1 Cells(cnt, 1) = buf Dim sheet_name As String sheet_name = Left(buf, 14) Worksheet.Add After:=Worksheets(Worksheets.Count).Name = sheet_name 'データをCSV化 Open file_path For Input As #1 Do Until EOF(1) Line Input #1, file_path n = n + 1 Cells(n, 1) = file_path Loop Close #1 buf = Dir() Loop
End Sub
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。