[發問] vba txt外部資料匯入/匯出問題

mark15jill

論壇內有些文章是描述 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

複製代碼