Import af navngivet Range fra Excel til Access 2007 vha TransferSpreadsheet

adresse = Range("RangeNavn").Address   
antalRækker = Range("RangeNavn").Rows.Count

Så langt så godt: men i et TraferSPreadsheet kald?

    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
        "Employees" & Str(I), strFileName, False, objWorksheet.Name & "!" & objWorksheet.Range("myrange").Address

giver fejl - Access giver 1004 - Application defined or obejct defined error. Hvordan skal kaldet se ud?

Prøv at "trække" adressen ud i en variabel af string-typen og anvend denne som den sidste parameter.


Har du en reference til Excel?

I Access 2007 vil TransferSpreadsheet tilsyneladende ikke godtage $-tegn i ranges, dvs. "Sheet1!A1:B3" virker fint, men "Sheet1!$A$1:$B$3" giver en fejl - kan det være det samme du er ude i?

@supertekst

Hvad mener du præcist? Jeg kan fint læse et enkelt ark ad gangen:

Set objExcel = CreateObject("Excel.Application")
'objExcel.Visible = True

strFileName = "xxx"

Set objWorkbook = objExcel.workbooks.Open(strFileName)
Set colWorksheets = objWorkbook.Worksheets
I = 0
For Each objWorksheet In colWorksheets
    I = I + 1
    If I = 3 Then
    Return
    End If
    'Set objRange = objWorksheet.UsedRange
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
        "Employees" & Str(I), strFileName, False, objWorksheet.Name & "!" & objWorksheet.Range("myrange").Address

Next

Har også prøvet:
  Set objRange = objWorksheet.Range("myrange")
med tanke på
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
        "Employees" & Str(I), strFileName, False, objWorksheet.Name & "!" & objRange.Address

men kommer ikke forbi Set objRange  -samme fejl som før

@anlu

Nej - for jeg kender ikke udstrækningen af min range. Jeg prøver at bruge det navn som er tilskrevet i Excel

så problemet er med andre ord ikke TransferSpreadsheet, men derimod, at objWorksheet.Range("myrange") fejler, eller hva?

hvis du faktisk kommer ned til TransferSpreadsheet, så er det jo netop et problem af objRange.Address returnerer $-tegn i adressen.

Nej jeg kommer som sagt ikke ned til Transfer SPreadsheet

Jeg er ude efter en opskrift på hvordan man skal gøre -  evt. en bekræftelse på (eller det modsatte) at det kan lade sig gøre i det hele taget: altså TransferSpreasheet og et navngivet Range.

Ref til #6

Reference, når Excel-objektet skal håndteres fra Access inden
DoCmd-sætningen

(VBA-vinduet / Tools / References / Microsoft Excel....

For at få en streng med det range som et navn givet range refererer til, kan du slå op i Names-collection:

Dim str As String
Dim nm As Name

Set nm = objWorkbook.Names("myrange")
str = nm.RefersTo

Herefter bør du kunne bruge str som input til TransferSpreadsheet, evt. først efter at have fjernet $-tegn.

Set objRange = objWorksheet.Range("myrange")
    mystring = objRange.Address
    mystring = Replace(mystring, "$", "")
  DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
        "Employees" & Str(I), strFileName, False, objWorksheet.Name & "!" & mystring


dette virkede -tak for det.

Så vidt jeg kan se så bidrog I begge til løsningen, så læg svar begge to.

Glad for du fik det til at virke :o)

@supertekst

I øvrigt tak - når ma får den type fejlmeddeleler så er det nok et hint til at kigge efter referencer.

I øvrigt er det lidt for tumpet, at Microsofts ting ikke snakker ordentligt sammen af sig selv, men skal onduleres -  ak ak brok brok :-)

Selv tak - blot det lykkedes...

Hvis nogen snubler over denne tråd:

Den nemmeste løsning er at huske, at en navngivet range er per default global i workbooken. Det er derfor ikke nødvendigt specificere navnet på arket OG på den navngive range - man kan nøjes med det sidste. I dette tilfælde kan man bare bruge

  DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
        "miTabelNavn", "minWorkbook.xls", False, "navnetPåMinNavngivneRange"

og slippe for at åbne excel-objekter med videre :-)