|
▼Jaka さん:
Jaka さん、こんにちは。
>すみません。肝心なものが.....。
何で気付かなかったかなーーー、そうですよね!
>G/標準じゃダメなんですか?
13桁の数値が指数表現になってしまうもので...
>でも、固定長ファイルでWorkbooks.OpenTextは、使えないみたいですね。
>これは昨日気づいたんですが、Inputと同じで半角スペースがTrim見たいな感じで
>削られますね。by EXL97
そうですね、2000でもスペースは無くなっちゃいますね。
TextQualifier:=xlTextQualifierDoubleQuote で、WQuoteで括ってくれるものと思っていたら、甘かったです(^^;)
>2000以上だったら、データ → 外部データの取り込み か、
>ただのテキストを開くで場所を指定できたと思います。
>こちらは、半角スペースが削られるか未確認。
こちらのマクロはすごいマクロが記録されました(下記)
QueryTables.Add(...なるものが登場しました。
こちらもスペースに関しては、結果同じでした。
>With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Shigeru_Otsu\MyDocuments\Test\Test.txt", _
Destination:=Range("A2"))
> .Name = "Test"
> .FieldNames = True
> .RowNumbers = False
> .FillAdjacentFormulas = False
> .PreserveFormatting = True
> .RefreshOnFileOpen = False
> .RefreshStyle = xlInsertDeleteCells
> .SavePassword = False
> .SaveData = True
> .AdjustColumnWidth = True
> .RefreshPeriod = 0
> .TextFilePromptOnRefresh = False
> .TextFilePlatform = xlWindows
> .TextFileStartRow = 1
> .TextFileParseType = xlFixedWidth
> .TextFileTextQualifier = xlTextQualifierDoubleQuote
> .TextFileConsecutiveDelimiter = False
> .TextFileTabDelimiter = True
> .TextFileSemicolonDelimiter = False
> .TextFileCommaDelimiter = False
> .TextFileSpaceDelimiter = False
> .TextFileColumnDataTypes = Array(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
> .TextFileFixedColumnWidths = Array(2, 3, 6, 4, 5, 13, 13, 20, 20, 6, 4, 1, 1, 1, 1)
> .Refresh BackgroundQuery:=False
>End With
|
|