Kevin bertanya,
Saya memiliki satu set data yang disimpan dalam file teks tab delimited. Beberapa informasi perlu mempertahankan "pengisi" - seperti Kode Pos (panjangnya harus 5 atau 9 karakter). Ketika file teks dibuka menjadi excel, Wisaya Impor Teks secara otomatis muncul. Ada opsi untuk menentukan bahwa kolom yang berisi data tersebut adalah Teks daripada Generik. Memilih opsi ini berfungsi - tetapi saya harus melakukan pembukaan secara manual. Saya belum dapat menemukan cara di VBA agar informasinya menjadi Teks daripada Generik - dan menyimpan 'padding' saya.
Nyalakan perekam makro dan rekam proses mengimpor file teks Anda. Berikut adalah kode 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 mengontrol bagaimana setiap bidang diimpor. Dalam kasus ini, perekam makro mencatat bahwa Anda memiliki 4 bidang. Entri Array (2, 1) mengatakan bahwa untuk kolom ke-2, gunakan jenis kolom "Umum". Perhatikan bahwa untuk bidang 3, entri adalah Array (3, 2). "2" adalah kode untuk Excel untuk mengimpor bidang ini sebagai Teks.
