|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.04.2010, 19:13 | #1 |
Пользователь
Регистрация: 20.01.2009
Сообщений: 43
|
импорт в эксель
Подскажите, есть код импорта заданного dbf-файла в эксель. Нужно переделать так, чтобы при запуске макроса была возможность выбора нужного dbf-файла.
With ActiveSheet.QueryTables.Add(Connect ion:=Array( _ "OLEDB;Provider=Microsoft.Jet.OLEDB .4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\admin_7\Ðàáî÷èé ñòîë\Ëèñò Micro" _ , _ "soft Excel_2\;Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Dat" _ , _ "abase Password="""";Jet OLEDB:Engine Type=18;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Globa" _ , _ "l Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False" _ , _ ";Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _ ), Destination:=Range("A1")) .CommandType = xlCmdTable .CommandText = Array("80010501") .Name = "80010501" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .SourceDataFile = _ "C:\Documents and Settings\admin_7\80010501.DBF" .Refresh BackgroundQuery:=False End With End Sub |
28.04.2010, 08:19 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Можно, например, так:
Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 28.04.2010 в 08:22. |
28.04.2010, 10:07 | #3 |
Пользователь
Регистрация: 20.01.2009
Сообщений: 43
|
Работает,спасибо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вопросы по Эксель | ShamanK | Microsoft Office Excel | 13 | 24.10.2009 12:54 |
мелкие вопросы по эксель | nar1979 | Microsoft Office Excel | 2 | 18.03.2009 00:08 |