Kevins jautā,
Man ir datu kopa, kas tiek glabāta ar ciļņu norobežotā teksta failā. Daļai informācijas ir jāsaglabā “pildījums”, piemēram, pasta kodi (tiem jābūt 5 vai 9 rakstzīmēm gariem). Kad teksta fails tiek atvērts programmā Excel, automātiski tiek parādīts teksta importēšanas vednis. Ir iespēja norādīt, ka kolonna, kurā ir šie dati, ir teksts, nevis vispārējs. Šīs opcijas izvēle darbojas, taču man ir nepieciešams manuāli veikt atvēršanu. Man nav izdevies atrast veidu, kā VBA būtu informācija, nevis teksts, nevis teksts, un saglabātu manu “polsterējumu”.
Ieslēdziet makro reģistratoru un ierakstiet teksta faila importēšanas procesu. Šis ir iegūtais kods:
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:=TrueFieldInfo parametrs kontrolē to, kā katrs lauks tiek importēts. Šajā gadījumā makro reģistrators atzīmēja, ka jums ir 4 lauki. Ierakstā Masīvs (2, 1) teikts, ka 2. laukam izmantojiet lauka veidu “Vispārīgi”. Ņemiet vērā, ka 3. laukā ieraksts ir Masīvs (3, 2). “2” ir kods Excel, lai šis lauks tiktu importēts kā teksts.
