Kevin bertanya,
Saya mempunyai satu set data yang disimpan dalam fail teks yang dibatasi tab. Sebilangan maklumat perlu mengekalkan "padding" - seperti Zip Codes (panjangnya mestilah 5 atau 9 aksara). Apabila fail teks dibuka ke excel, Wizard Import Teks muncul secara automatik. Terdapat pilihan untuk menentukan bahawa lajur yang berisi data tersebut adalah Teks dan bukan Generik. Memilih pilihan ini berfungsi - tetapi ia memerlukan saya melakukan pembukaan secara manual. Saya belum dapat mencari jalan di VBA untuk mendapatkan maklumat sebagai Teks daripada Generik - dan menyimpan 'padding' saya.
Hidupkan perakam makro dan rakam proses mengimport fail teks anda. Berikut adalah kod yang dihasilkan:
Workbooks.OpenText Filename:= “C:TestData.txt”, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 1)), TrailingMinusNumbers:=TrueParameter FieldInfo mengawal bagaimana setiap medan diimport. Dalam kes ini, perakam makro menyatakan bahawa anda mempunyai 4 bidang. Entri Array (2, 1) mengatakan bahawa untuk medan ke-2, gunakan jenis medan "Umum". Perhatikan bahawa untuk medan 3, entri adalah Array (3, 2). "2" adalah kod untuk Excel untuk mengimport bidang ini sebagai Teks.
