Board logo

標題: [發問] vba txt外部資料匯入/匯出問題 [打印本頁]
作者: mark15jill    時間: 2013-3-7 15:01     標題: vba txt外部資料匯入/匯出問題

論壇內有些文章是描述 Txt匯出匯入之情形，
但對於 txt列數計算似乎沒提到很多
小弟在此提出幾點疑問，煩請各位前輩指教。
1.       .TextFileStartRow = 2   '此代碼為 從第二列作為基準，並加以匯入
         此段的 2  是否可用替代方案去更換，如 KKS = 2          .TextFileStartRow = KKS

2.      若文件檔案，文字是充滿的話，是可以依照一列有多少個字數下去做判斷
          如總字數100 ， 單列字數40  則為3列 ( (100/40 )   +1  無條件進位法)
           但若牽扯到 空白列 、 特殊符號  段行 自動換行  則此方法救無效，是否有解?

3.         在計算總字數時，如Text內容字數為 100 字，但計算時，有時候會出現102字 <無空格、斷行>
           請問這是甚麼原因？
  1.     With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\123.txt", Destination _
  2.         :=Range("$d$1"))
  3.         .Name = "123"
  4.         .FieldNames = True
  5.         .RowNumbers = False
  6.         .FillAdjacentFormulas = False
  7.         .PreserveFormatting = True
  8.         .RefreshOnFileOpen = False
  9.         .RefreshStyle = xlInsertDeleteCells
  10.         .SavePassword = False
  11.         .SaveData = True
  12.         .AdjustColumnWidth = True
  13.         .RefreshPeriod = 0
  14.         .TextFilePromptOnRefresh = False
  15.         .TextFilePlatform = 950
  16.         .TextFileStartRow = 2
  17.         .TextFileParseType = xlDelimited
  18.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
  19.         .TextFileConsecutiveDelimiter = False
  20.         .TextFileTabDelimiter = True
  21.         .TextFileSemicolonDelimiter = False
  22.         .TextFileCommaDelimiter = False
  23.         .TextFileSpaceDelimiter = False
  24.         .TextFileColumnDataTypes = Array(2)
  25.         .TextFileTrailingMinusNumbers = True
  26.         .Refresh BackgroundQuery:=False
  27.     End With
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)