Dag pitufo,
jij bent toch een "krak" als ik dat mag zeggen waar ik ook zéér naar op kijk
inladen tabel (lukt niet nadien, loopt vast), inladen tabel gaat snel, bewerken is iets anders !
Sub Macro1()
'
' Macro1 Macro
'
'
Application.CutCopyMode = False
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=XXXXXXXX-YYYYYY-SRV;ServerName=000.000.00.000.0000;ArrayFetchOn=1;ArrayBufferSize=8;TransportHint=TCP;DBQ=XXXXXXXX " _
), Array( _
" ;ClientVersion=12.00.134.000;CodePageConvert=1252;PvClientEncoding=CP1252;PvServerEncoding=CP1252;" _
)), Destination:=Range("$A$1")).QueryTable
.CommandType = 0
.CommandText = Array( _
"SELECT Vrd.OudLokArtDatVolg, Vrd.Lokatie, Vrd.Artikel, Vrd.BeginVoorraadSt, Vrd.MutatieSt, Vrd.BeginVoorraadKg, Vrd.MutatieKg, Vrd.Soort, Vrd.DebCred, Vrd.Tekst, Vrd.Datum, Vrd.VolgNummer, Vrd.Partij," _
, _
" Vrd.PartijTekst, Vrd.Prijs, Vrd.VoorraadMutatieReden, Vrd.Reserve, Vrd.VerkoopArtikel, Vrd.ChargeNummer, Vrd.DouaneStatus, Vrd.PalletNummer, Vrd.InterneBoeking, Vrd.SoortMutatie, Vrd.Res2, Vrd.Res3" & Chr(13) & "" & Chr(10) & "" _
, "FROM XXXXXXXX.Vrd Vrd")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tabel_Query_van_XXXXXXXX_YYYYYY_SRV"
.Refresh BackgroundQuery:=False
End With
End Sub
loopt vast op
.CommandType = 0
2 rijen verwijderd (gaat snel)
Sub Rijen_verwijderen()
'
' Rijen_verwijderen Macro
'
'
ActiveSheet.ListObjects("Tabel_Query_van_XXXXXX_YYYYY_SRV").Range. _
AutoFilter Field:=13, Criteria1:="6004"
Rows("261034:507077").Select
Selection.Delete Shift:=xlUp
End Sub
groetjes
Georgyboy