Excel - Query - databaseforespørgsel

Sub Macro4()
    With Selection.QueryTable
        .Connection = Array(Array( _
        "ODBC;DRIVER={Client Access ODBC Driver (32-bit)};COMPRESSION=0;LAZYCLOSE=1;CMT=0;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;LANGUAGEID=ENU;DF" _
        ), Array("TPKGLIB=QGPL;DBQ=DTDDAN;SYSTEM=10.128.59.11;"))
        .CommandText = Array( _
        "SELECT ZUFAPO.ZUFP_AUFTNR, ZUFAPO.ZUFP_AUFPOS, ZUFAPO.ZUFP_ARTNUM, ZUFAPO.ZUFP_ARTBEZ, ZUFAPO.ZUFP_BMENGE, ZUFAPO.ZUFP_BERTST, ARTSTM.ASS1_LAGBST, ARTSTM.ASS1_REIH01, ARTSTM.ASS1_FACH01" & Chr(13) & "" & Chr(10) & "FROM SERVER1." _
        , _
        "DTDDAN.ARTSTM ARTSTM, SERVER1.DTDDAN.ZUFAPO ZUFAPO" & Chr(13) & "" & Chr(10) & "WHERE ARTSTM.ASS1_ARTNUM = ZUFAPO.ZUFP_ARTNUM AND ((ZUFAPO.ZUFP_AUFTNR=" & Range("A1").Value & ") AND (ZUFAPO.ZUFP_AUFPOS>=100))" _
        )
        .Refresh BackgroundQuery:=True
    End With
End Sub

Tak for input....

Run time error '1004'
SQL syntaksfejl
og denne linie er markeret:
.Refresh BackgroundQuery:=True

Den henter ikke data....

/Lotte

står du på en af cellerne med date, hvis du ikke gør det, kan du ikke opdatere.

date ??  == data ??

Hvad skal tilføjes, for at nummeret kan indtastes i en msgbox ??
og for at man står et korrekt sted i arket vd start.

/Lotte

jeg går ud fra at din QueryTable, starter i A1, så skulle denne virke.


Sub Macro4()
Dim NR As Integer
Range("A1").Activate
NR = InputBox("Indtast nummer")
    With Selection.QueryTable
        .Connection = Array(Array( _
        "ODBC;DRIVER={Client Access ODBC Driver (32-bit)};COMPRESSION=0;LAZYCLOSE=1;CMT=0;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;LANGUAGEID=ENU;DF" _
        ), Array("TPKGLIB=QGPL;DBQ=DTDDAN;SYSTEM=10.128.59.11;"))
        .CommandText = Array( _
        "SELECT ZUFAPO.ZUFP_AUFTNR, ZUFAPO.ZUFP_AUFPOS, ZUFAPO.ZUFP_ARTNUM, ZUFAPO.ZUFP_ARTBEZ, ZUFAPO.ZUFP_BMENGE, ZUFAPO.ZUFP_BERTST, ARTSTM.ASS1_LAGBST, ARTSTM.ASS1_REIH01, ARTSTM.ASS1_FACH01" & Chr(13) & "" & Chr(10) & "FROM SERVER1." _
        , _
        "DTDDAN.ARTSTM ARTSTM, SERVER1.DTDDAN.ZUFAPO ZUFAPO" & Chr(13) & "" & Chr(10) & "WHERE ARTSTM.ASS1_ARTNUM = ZUFAPO.ZUFP_ARTNUM AND ((ZUFAPO.ZUFP_AUFTNR=" & NR & ") AND (ZUFAPO.ZUFP_AUFPOS>=100))" _
        )
        .Refresh BackgroundQuery:=True
    End With
End Sub

Tilbage igen....  det fungerer 'næsten'.... 
på den måde at det har udløst et par andre problemer.

1) Opdatering medfører at der kan være færre linier end i foregående
opdatering....  hvordan sletter man uden at gøre ravage ?

2) Hvordan markerer man det område, der indeholder data, og kopierer til en
anden fil med 'pæn' formatering.

3)og hvordan gemmer man denne formaterede fil med et nyt navn, som
indeholder &NR plus dags dato. ??

Jeg er klar over, at spørgsmålet er udvidet - og det skal nok blive belønnet, men jeg synes at der er sammenhæng i spørgsmplene her - som jeg gerne vil kunne anvende i en senere opgave af samme salgs.

Tak for din hjælp

/Lotte

1. Hvis den starter i A1, må du gerne slette fra række 2 og nedad, men aldrig række 1.


2. Jeg er i tvivl om du mener manuelt eller via kode, sådan her manuelt:
  Hvad mener du med 'pæn' formatering, som det står i din query.??
  marker området, vælg kopier, gå over i den nye fil(ark), vælg sæt ind. så skulle den
  være i orden.

1)  OK, var nervøs for om jeg kom til at slette "bindinger" til
opslaget.

2) Ja, jeg mener Via koden - dvs. kopier til slags skabelonfil, som er præ-formateret
som et skema (dvs. skal ikke kodes), men "kaldes" fra en skabelonmappe....  og efter kopieringen skal skabelonen gemmes med nyt filnavn == &NR-dags-dato.

Det, der er mit problem her er, at få koden åbne skabelonen,
og at finde/markere området, som kun indeholder A1:[den sidste celle med data], fordi hver opdatering har variabelt antal rækker....

og så at gemme skabelonfilen med et navn, som består af [&NR og DagsDato]

/Lotte

prøv at tjekke denne

Dim NR As Integer
Sub Macro4()
    Range(Range("A2"), Range("A65536")).Rows.ClearContents    ' tømmer arket fra A2 og ned

    Range("A1").Activate
    NR = InputBox("Indtast nummer")
    With Selection.QueryTable
        .Connection = Array(Array( _
                            "ODBC;DRIVER={Client Access ODBC Driver (32-bit)};COMPRESSION=0;LAZYCLOSE=1;CMT=0;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;LANGUAGEID=ENU;DF" _
                            ), Array("TPKGLIB=QGPL;DBQ=DTDDAN;SYSTEM=10.128.59.11;"))
        .CommandText = Array( _
                      "SELECT ZUFAPO.ZUFP_AUFTNR, ZUFAPO.ZUFP_AUFPOS, ZUFAPO.ZUFP_ARTNUM, ZUFAPO.ZUFP_ARTBEZ, ZUFAPO.ZUFP_BMENGE, ZUFAPO.ZUFP_BERTST, ARTSTM.ASS1_LAGBST, ARTSTM.ASS1_REIH01, ARTSTM.ASS1_FACH01" & Chr(13) & "" & Chr(10) & "FROM SERVER1." _
                    , _
                    "DTDDAN.ARTSTM ARTSTM, SERVER1.DTDDAN.ZUFAPO ZUFAPO" & Chr(13) & "" & Chr(10) & "WHERE ARTSTM.ASS1_ARTNUM = ZUFAPO.ZUFP_ARTNUM AND ((ZUFAPO.ZUFP_AUFTNR=" & NR & ") AND (ZUFAPO.ZUFP_AUFPOS>=100))" _
                    )
        .Refresh BackgroundQuery:=True
    End With
End Sub


Public Sub Gem()
    Dim Sti As String
    Sti = "C:\data\"    ' ret til hvor du vil gemme
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:= _
                          Sti & NR & "_" & Date & ".xls", FileFormat:=xlNormal, _
                          Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
                          CreateBackup:=False
    ActiveWindow.Close
End Sub

kabbak - jeg vil gerne takke - vil du lægge et svar

/Lotte

et svar ;-))

Undskyld, jeg glemte at slutte af....