Temat: Excel i MySQL
Jeśli używasz jakiegoś download managera, lub ściągasz przy użyciu "zapisz element docelowy jako", to może niestety nie zadziałać. Kliknij link, otworzy się nowe okno, i jeszcze raz kliknij link w tym oknie. Powinno być ok. Tak czy inaczej, fragment VBA odpowiadający za zapytanie z bazy danych wygląda tam mniej więcej tak:
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=" + filestr.Text + ";DefaultDir=D:\Documents and Settings\btar00\Pu" _
), Array("lpit;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
Destination:=Range(cellstr.Text))
.CommandText = Array(SQL.Text)
.Name = "Kwerenda z MS Access Database"
.FieldNames = True
.RowNumbers = rownames.Value
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Wartość Connection nagraj makrem, Destination to miejsce, gdzie dane mają być wyplute, a CommandText to kwerenda SQL.
Pozdrawiam i życzę powodzenia!
b.