ник: Кабан
а почему FMT=Fixed?!?!?!
почему бы вам хелп не прочитать? :) чем сразу влоб начинать что-либо писать ;)
создайте спецификацию для подключения импорта файла и сохраните её
я вот создал с именем "МояCпецификацияСвязи" с разделителями в виде ";"
и воспользовался этим кодом:
Sub mcrLinkTxtFile()
Set db = CurrentDb
strDir = "C:\temp\"
strTemp = Dir(strDir & "yyy.txt")
strFileName = strTemp
strTblName = "ФайлКакТаблица"
Set tdfLink = CurrentDb.CreateTableDef(strTblName)
tdfLink.SourceTableName = strFileName
tdfLink.Connect= "Text;DSN=МояCпецификацияСвязи;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=1251;DATABASE=" & strDir
CurrentDb.TableDefs.Append tdfLink
End Sub
|
и все! подключилась таблица с полями нужными.
Поле1 Поле2 Поле3 Поле4 Поле5 Поле6
00000004 2107030162703 Ванна Ванна 1500.24 11.000
00000001 2107030162710 Гвозди Гвозди 18.43 132.000
00000004 2107030162704 Вантуз Вантуз 1500.24 11.000
00000001 2107030162715 Шуруп Шуруп 18.43 132.000
|
и не надо морочить бейцы
ни себе ни людям
