Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56615 / 76737 ←次へ | 前へ→

【24871】ファイルの取り込みに付いて
質問    - 05/5/12(木) 11:45 -

引用なし
パスワード
   こんにちわ。猫です。
現在次の形で外部からCSVファイルを取り込んでいるのですが、
セルのAからACまでのデータを取り込んでいると、
AB以降のデータがすべてABに,区切りでつながってしまいます。

| AB | AC |                | AB | AC |
----------- これが次のようになります→  -----------
| 1 | 2 |                | 1,2|  |

ソースは次のように書いています。

  With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;test.text", Destination:=Range("A4"))
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    '.TextFilePlatform = xlWindows
    .TextFilePlatform = _
      IIf(Val(Application.Version) >= 10, 932, xlWindows)
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 2, 2, 2)  '←ここの意味が判らない
    .Refresh BackgroundQuery:=False
  End With

どなたか原因が判る方教えてください。

0 hits

【24871】ファイルの取り込みに付いて 05/5/12(木) 11:45 質問
【24873】Re:ファイルの取り込みに付いて Jaka 05/5/12(木) 11:52 発言
【24875】Re:ファイルの取り込みに付いて 05/5/12(木) 12:01 発言
【24876】Re:ファイルの取り込みに付いて Jaka 05/5/12(木) 12:40 発言
【24877】Re:ファイルの取り込みに付いて 05/5/12(木) 12:54 発言
【24881】Re:ファイルの取り込みに付いて 05/5/12(木) 14:13 お礼

56615 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free