傳回或設定整數陣列,該陣列對應至您要匯入查詢表格之文字檔中 (字元) 直欄寬度。 可使用的寬度為從 1 到 32767 個字元。 讀取/寫入的 Variant。
語法
表達。TextFileFixedColumnWidths
詞 代表 QueryTable 物件的變數。
註解
只有當您的查詢資料表是以 QueryType 屬性設定為 xlTextImport) 的文字檔 (中的資料為基礎,且只有在 TextFileParseType 屬性的值為 xlFixedWidth 時,才使用此屬性。
必須指定一個可使用的非負值欄寬。 如果指定的行超出了文字檔的寬度,則會略過那些值。 如果文字檔的寬度大於您指定的直欄總寬度,則會將文字檔的餘額匯入到其他直欄中。
如果您使用使用者介面匯入資料,則來自 Web 查詢或文字查詢的資料會匯入為 QueryTable 物件,而所有其他外部資料都會匯入為 ListObject 物件。
如果您使用物件模型匯入資料,則必須將 Web 查詢或文字查詢中的資料匯入為 QueryTable,而所有其他外部資料都可以匯入為 ListObject 或 QueryTable。
TextFileFixedColumnWidths 屬性只適用於 QueryTable 物件。
範例
這個範例在第一個工作表 (第一個活頁簿中) 的新查詢表中匯入一個固定寬度的文字檔。 該文字檔的第一欄為五個字元寬度,做為文字輸入。 第二欄為四個字元寬度,會予以略過。 該文字檔的其餘部分則會匯入到第三欄,並且會套用通用格式。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1, 1))
With qtQtrResults
.TextFileParseType = xlFixedWidth
.TextFileFixedColumnWidths = Array(5, 4)
.TextFileColumnDataTypes = _
Array(xlTextFormat, xlSkipColumn, xlGeneralFormat)
.Refresh
End With
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。