VBA Èìïîðò òåêñòîâèêà â áàçó, îøèáêà F1
|
|
Ïÿòíèöà, 10 Ìàðòà 2017 ã. 12:42
+ â öèòàòíèê
Ðåáÿò, òàêàÿ ïðîáëåìà.
Åñòü òåêñòîâèê(txt), êîãäà èìïîðòîì ðóêàìè ïåðåíîñèøü åãî, âñ¸ â ïîðÿäêå, óäà÷íî ïåðåíîñèòñÿ, íî íå îïðåäåëÿåò èìåíà ñòîëáöîâ, òàê êàê îíè íà âòîðîé ñòðîêå íàõîäÿòñÿ, ïðîïèñûâàåò ïðîñòî "ïîëå1", "ïîëå2" è òä.
Ïûòàþñü íàïèñàòü äëÿ íåãî êîä, âñ¸ ïî ôýíøóþ ñîçäàþ ñïåöèôèêàöèþ, òàì âûáèðàþ ðàçäåëèòåëü "tab", êîäèðîâêó þíèêîä.
Ïèøó çàâåòíûé êîä:
DoCmd.TransferText acImportDelim, ImportSpecification, "èìÿ_òàáëèöû", filePath, False
È êàæäûé ðàç ïîëó÷àþ îøèáêó:
Ïîëå "F1" íå ñóùåñòâóåò â ðåçóëüòèðóþùåé òàáëèöå "èìÿ_òàáëèöû"
Ïðîáîâàë åù¸ èñïðàâëÿòü òàáëèöó "MSysIMEXSPECx" òàì íàõîäèë ìîþ ñïåöèôèêàöèþ è ñòàâèë â ïîëå "Start row" öèôðó 3, ÷òî íà÷èíàòü ñ òðåòüåé ñòðîêè, âñ¸ ðàâíî òàæå îøèáêà.
Ïðîáîâàë â òàáëèöå "èìÿ_òàáëèöû" çàðàíåå èìåíîâàòü ñòîëáöû F1,F2,F3... òîãäà ïîëó÷àþ òàêóþ æå îøèáêó òîëüêî æàëóåòñÿ óæå íà ïîëå F4!
Ïîäñêàæèòå ïîæàëóéñòà, ÷òî ìîæíî ñäåëàòü åù¸?
Òåêñòîâèê âûãëÿäèò ïðèìåðíî òàê(òîëüêî âìåñòî ïðîáåëîâ TAB):
Îò÷åò
Èìÿ Ôàìèëèÿ Îò÷åñòâî
Èâàíîâ Èâàí Èâàíîâè÷
http://www.sql.ru/forum/1252813/vba-import-tekstovika-v-bazu-oshibka-f1
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-