Kevin megkérdezi,
Van egy adatsorom, amelyet egy tabulátorral elválasztott szövegfájl tárol. Néhány információnak meg kell őriznie a „kitöltést” - például az irányítószámokat (5 vagy 9 karakter hosszúaknak kell lenniük). Amikor a szöveges fájlt megnyitja az Excel programba, automatikusan megjelenik a Szövegimportálás varázsló. Lehetőség van megadni, hogy az adatokat tartalmazó oszlop inkább szöveg, mint általános. Ennek az opciónak a kiválasztása működik - de szükségem van rám, hogy manuálisan végezzem a megnyitást. Nem sikerült megtalálni azt a módot a VBA-ban, hogy az információk inkább szövegek, mint általánosak legyenek, és mentsem a „kitöltést”.
Kapcsolja be a makrofelvevőt, és rögzítse a szöveges fájl importálásának folyamatát. Itt van a kapott kód:
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:=TrueA FieldInfo paraméter vezérli az egyes mezők importálását. Ebben az esetben a makrofelvevő megjegyezte, hogy 4 mezője van. A Tömb (2, 1) bejegyzés azt mondja, hogy a 2. mezőhöz használjon „Általános” mezőt. Vegye figyelembe, hogy a 3. mezőnél a bejegyzés a Tömb (3, 2). A „2” az Excel kódja, amely ezt a mezőt Szövegként importálja.
