将Excel外部数据放入表格

我正在从一个CSV文件（由外部系统自动生成）获取数据的Excel电子表格。 我用过：

数据 – >获取外部数据 – >从文本

它的作品完美！

不过，我无法将导入的数据格式化为表格:-(

它给出了以下消息：

您的select重叠一个或多个外部数据范围。 你想将select转换为一个表，并删除所有的外部连接？

有没有办法将导入的数据格式化为表格而不会中断连接？

感谢Martin

Answer 1

这应该适合你 – 确保你有一个名为Data的选项卡，并将公共常量改为文件的path。 我假设你知道如何处理这个代码，如果不让我知道。

Public Const feedDir = "C:\Program Files\Common Files\System\data.csv" 'change this to the path of the file Sub loadDataWrapper() '''check file is in directory before proceding If Dir(feedDir) <> "" Then fileToLoad = feedDir Else MsgBox "No file available to load. Please check the path and try again." Exit Sub End If Call loadData(fileToLoad) End Sub Sub loadData(ByVal fileToLoad As String) Dim fso As Object, textFile As Object: Set fso = CreateObject("Scripting.FileSystemObject") Dim textFileStr As String Dim textFileArr As Variant Dim outputArr() As Variant Dim oneRow As Variant Dim numRows, numColumns As Long '''open the text file and read into memory as is Set textFile = fso.OpenTextFile(fileToLoad, 1) textFileStr = textFile.ReadAll textFile.Close Set textFile = Nothing Set fso = Nothing '''find number of rows and columns of text file textFileArr = Split(textFileStr, Chr(10)) numRows = UBound(textFileArr) numColumns = UBound(Split(textFileArr(0), ",")) ReDim outputArr(numRows, numColumns) '''go through every line and insert into array For ii = 0 To (numRows - 1) oneRow = Split(textFileArr(ii), ",") For jj = 0 To numColumns outputArr(ii, jj) = oneRow(jj) Next jj Next ii '''output array to Worksheet Worksheets("Data").Range("A2:Z1048576").ClearContents Worksheets("Data").Range("A2").Resize(numRows + 1, numColumns + 1).Value = outputArr End Sub 

Answer 2

数据透视表是否满足您的要求？

 Insert>PivotTable>Use External Data Source Radio Button