Sn arkadaşlar
Aşağıdaki makroda query ile excele veri aldım. Bunu VBA dilinde daha kısa nasıl yazabiliriz. SQL dilide olabilir
[vb:1:d6271e80f1]
Sub Makro1()
'
' Makro1 Makro
' Makro İbrahim DOÃUÃ tarafından 30.06.2005 tarihinde kaydedildi.
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=MW32;Server=255.255.0.0;Service=8003;Charset=ISO8859-1;UID=public;Password=No" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT ARTIKEL.DARTEILNR, ARTIKEL.DARBEZA, ARTIKEL.DARBEZB" & Chr(13) & "" & Chr(10) & "FROM MW32.ARTIKEL ARTIKEL" & Chr(13) & "" & Chr(10) & "WHERE (ARTIKEL.DARTEILNR='PV 40576247')" _
)
.Name = "MW32 kaynağından sorgula"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
[/vb:1:d6271e80f1]
Aşağıdaki makroda query ile excele veri aldım. Bunu VBA dilinde daha kısa nasıl yazabiliriz. SQL dilide olabilir
[vb:1:d6271e80f1]
Sub Makro1()
'
' Makro1 Makro
' Makro İbrahim DOÃUÃ tarafından 30.06.2005 tarihinde kaydedildi.
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=MW32;Server=255.255.0.0;Service=8003;Charset=ISO8859-1;UID=public;Password=No" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT ARTIKEL.DARTEILNR, ARTIKEL.DARBEZA, ARTIKEL.DARBEZB" & Chr(13) & "" & Chr(10) & "FROM MW32.ARTIKEL ARTIKEL" & Chr(13) & "" & Chr(10) & "WHERE (ARTIKEL.DARTEILNR='PV 40576247')" _
)
.Name = "MW32 kaynağından sorgula"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
[/vb:1:d6271e80f1]