Visual Basic
マクロを使用してテキストデータを読み込みたい 下記のマクロを使用してテキストデータを読み込んでますが 読み込んだ中に「=0735」の様な＝から始まるデータもあります この場合「735」と表示されてしまいます。 最初にExcelを文字列にしても変わりませんでした。 表示されている通りにデータを読み込むにはどのようにしたら良いでしょうか？ Sub テキスト読み込み() Application.ScreenUpdating = False Dim desktop As String Dim file As String desktop = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "データ" & "\" file = Dir(desktop & "20*.txt") Do While file <> "" Dim rng As Range If Range("A1").Value = "" Then Set rng = Range("A1") Else '違うなら(A1が空白でないなら) Set rng = Range("A" & Rows.Count).End(xlUp).Offset(1) End If ActiveSheet.QueryTables.Add(Connection:="TEXT;" & desktop & file, Destination:=rng).Refresh BackgroundQuery:=False file = Dir() Loop Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True End Sub
