ник: час
Получается так:
Сначала ручками линкуешь файл,(тода создаётся спецификация)
В строке подключения видно как называется спецификация.
Затем можно линьковать программно, вписывая в код название спецификации.
Sub Try()
DoCmd.DeleteObject acTable, "ИЗ_1С_Сюда"
Dim t As TableDef
Set t = CurrentDb.CreateTableDef("ИЗ_1С_Сюда")
t.Connect = "Text;DSN=" & "Goods" & " - спецификация связи4;" & "FMT=Fixed;HDR=NO;IMEX=2;CharacterSet=1251;DATABASE=" & "E:\Арм Сканер\Временные" & ";TABLE=" & "goods.txt"
'Text;DSN=Goods - спецификация связи4;FMT=Fixed;HDR=NO;IMEX=2;CharacterSet=932;DATABASE=E:\Арм Сканер\Временные;TABLE=goods#txt
t.SourceTableName = "goods.txt" '"ИмяФайла"
CurrentDb.TableDefs.Append t
End Sub
|
Всё бы ничего но на одном из компов хоть тресни какие-то квадратики в строке в таблице
00000004;2107030162703;ﾂ瑙浯;ﾂ瑙浯;1500.24;11.000;0;0;0;0;0;0;0;1;0;0;1;1;