Variablen Bezug

Forumthread: Variablen Bezug

Variablen Bezug

13.04.2005 16:59:28

Winni

Hallo lieb Forumsmitglieder,
ich komme wieder mal nicht weiter. Ich habe mir mit dem Recorder ein Macro erstellt welches mir aus der Datei "Mahnungen" alle Mahnungen zum einem fixen Kunden in ein Tabellenblatt importiert. Nun würde ich es gerne so einrichten, dass ich den Kunden variabel angeben kann.
Zum besseren Verständnis habe ich das Makro mal in ein Worddoc. gepackt.
https://www.herber.de/bbs/user/21098.doc
Vielleicht hat jemand aus dem Forun eine Idee ................
Gruß und Dank im Voraus
Winni

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Variablen Bezug

13.04.2005 17:24:19

Martin
AW: Variablen Bezug

13.04.2005 17:46:35

Winni

AW: Variablen Bezug

13.04.2005 17:24:19

Martin

Hallo Winni,
kopiere das komplette Makro mal hier rein (nicht in eine Worddatei).
Gruß
Martin Beck

AW: Variablen Bezug

13.04.2005 17:46:35

Winni

Hallo Martin Beck,
meinst du so ? :
Sub DatenAusMahnliste_importieren()
'
' Makro2 Makro
' Makro am 27.02.2004 von Augustin, Winfried aufgezeichnet
'
'
Range("A5").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Excel-Dateien;DBQ=S:\M&V\Vertriebscontrolling\Berichte&Auswertungen\Reporting_SaF\Reporting_VAD\Mahnungen\Mahnungen_aktuell" _
), Array( _
".xls;DefaultDir=S:\M&V\Vertriebscontrolling\Berichte&Auswertungen\Reporting_SaF\Reporting_VAD\Mahnungen;DriverId=790;MaxBufferS" _
), Array("ize=2048;PageTimeout=5;")), Destination:=Range("A5"))
.CommandText = Array( _
"SELECT `mahnliste_24_Gesamt$`.Konto, `mahnliste_24_Gesamt$`.Kunde, `mahnliste_24_Gesamt$`.`Ansprechpartner GE`, `mahnliste_24_Gesamt$`.`Profit-Center`, `mahnliste_24_Gesamt$`.Belegnummer, `mahnliste_2" _
, _
"4_Gesamt$`.Buchungsdatum, `mahnliste_24_Gesamt$`.Betrag, `mahnliste_24_Gesamt$`.Währung, `mahnliste_24_Gesamt$`.Mahnstufe, `mahnliste_24_Gesamt$`.Text" & Chr(13) & "" & Chr(10) & "FROM `mahnliste_24_Gesamt$` `mahnliste_24_Gesamt" _
, _
"$`" & Chr(13) & "" & Chr(10) & "WHERE (`mahnliste_24_Gesamt$`.Konto=100252)" & Chr(13) & "" & Chr(10) & "ORDER BY `mahnliste_24_Gesamt$`.Mahnstufe" _
)
.Name = "Abfrage von Excel-Dateien_153"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
End With

Forumthread: Variablen Bezug

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread