標題: [發問] 文字檔以覆蓋或貼上方式匯入EXCEL指定欄位 [打印本頁]

---

作者: imp    時間: 2014-3-26 16:43     標題: 文字檔以覆蓋或貼上方式匯入EXCEL指定欄位

請問要將文字檔內容匯入至指定欄位中，因指定欄位皆有對應計算公式，故需要以貼上或覆蓋的方式匯入而不是以插入方式匯入資料（這樣後續計算公式會亂掉），請問下面內容要如何修改才能達成呢？？

1. Sub OpenFile()
   
2. Dim strFilt As String
   
3. Dim strTitle As String
   
4. Dim strFname As Variant
   
5. Dim i As Integer
   
6. Dim strMsg As String
   
7. 
   
8. strFilt = "文字檔案,*.txt,"
   
9. strTitle = "打開Excel文件"
   
10. strFname = Application.GetOpenFilename(FileFilter:=strFilt, Title:=strTitle, MultiSelect:=True)
    
11. If Not IsArray(strFname) Then
    
12. MsgBox "沒選擇文件！"
    
13. Else
    
14. For i = LBound(strFname) To UBound(strFname)
    
15. strMsg = strMsg & strFname(i) & vbCrLf
    
16. With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFname(i), Destination:=Range("$S$2"))
    
17. .Name = "18"
    
18. .FieldNames = True
    
19. .RowNumbers = False
    
20. .FillAdjacentFormulas = False
    
21. .PreserveFormatting = True
    
22. .RefreshOnFileOpen = False
    
23. .RefreshStyle = xlInsertDeleteCells
    
24. .SavePassword = False
    
25. .SaveData = True
    
26. .AdjustColumnWidth = True
    
27. .RefreshPeriod = 0
    
28. .TextFilePromptOnRefresh = False
    
29. .TextFilePlatform = 950
    
30. .TextFileStartRow = 1
    
31. .TextFileParseType = xlDelimited
    
32. .TextFileTextQualifier = xlTextQualifierDoubleQuote
    
33. .TextFileConsecutiveDelimiter = False
    
34. .TextFileTabDelimiter = True
    
35. .TextFileSemicolonDelimiter = False
    
36. .TextFileCommaDelimiter = False
    
37. .TextFileSpaceDelimiter = False
    
38. .TextFileColumnDataTypes = Array(1, 1)
    
39. .TextFileFixedColumnWidths = Array(14)
    
40. .TextFileTrailingMinusNumbers = True
    
41. .Refresh BackgroundQuery:=False
    
42. Columns("S:AG").Select
    
43. Range("S2").Activate
    
44. Selection.ColumnWidth = 3
    
45. End With
    
46. Next
    
47. MsgBox "選擇的文件是：" & vbCrLf & strMsg
    
48. End If
    
49. 
    
50. End Sub

複製代碼

---

作者: huijuang    時間: 2014-3-28 10:51

1. Sub test()
   
2. '開啟test.txt的檔案
   
3. Open "c:\temp\test.txt" For Input As #1
   
4. i = 1
   
5. Do While Not EOF(1)
   
6. Input #1, a, b    '讀取test.txt的資料，註：這裡的資料每行只有2個資料，所以是只有a,b
   
7. 
   
8. Range("a1").Offset(i - 1, 0) = a   '將資料放到a1開始以下
   
9. Range("b1").Offset(i - 1, 0) = b   '將資料放到b1開始以下
   
10. 
    
11. i = i + 1
    
12. Loop
    
13. 
    
14. Q:
    
15. Close #1    '把test.txt關掉，這裡沒關的話，之後開啟會出現錯誤
    
16. End Sub

複製代碼

---

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