Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > VB и Excel


Автор: Гость_Михаил 10.8.2005, 13:02
Подскажите кто нибудь если не сложно как через вб сделать програмку конвертирующую xls в dbf при этом сохрняю структуру экселя (листы, строки...)

Автор: Akina 10.8.2005, 13:12
Чтение из файла:

Код
Dim DS As System.Data.DataSet
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
Dim MyConnection As System.Data.OleDb.OleDbConnection

MyConnection = New System.Data.OleDb.OleDbConnection( _
      "provider=Microsoft.Jet.OLEDB.4.0; " & _
      "data source=C:\myData.XLS; " & _
      "Extended Properties=Excel 8.0;")
' Select the data from Sheet1 of the workbook.
MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
      "select * from [Sheet1$]", MyConnection)

DS = New System.Data.DataSet()
MyCommand.Fill(DS)
MyConnection.Close()


Запись в DBF - аналогично.

Автор: Гость_Михаил 10.8.2005, 14:52
Спасибо большое, но я в Visual совсем не разбираюсь не могли бы вы пример записи в виа привести?

Автор: Akina 10.8.2005, 15:21
1) я не знаю что разумеется под термином "виа". во времена моей молодости это означало "вокально-инструментальный ансамбль" smile
2) как Вы собираетесь через VB делать программу, если в VB не разбираетесь?
3) что-то мне подсказывает, что Вы тут надолго - тогда рекомендую зарегистрироваться. По крайней мере будете получать на мыло уведомления об ответах в Вашу тему.

Автор: Hevrais 11.8.2005, 12:09
виа это формат dbf просто у меня пунто свитчер стоит и он автоматически сменил, а я не заметил, извините
а насчет вижуал, то так получилось что мне нужно сделать эту программу и я стараюсь сейчас разобраться в языке
и я зарегестрировался

Автор: Akina 11.8.2005, 12:13
Hevrais
Давайте сперва поймем, почему нужно сделать именно программу. Чем не устраивает обычный SaveAs из Экселя?

Автор: Hevrais 11.8.2005, 12:43
а можна в аське? 252223969

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)