Office: (Office 2016) Index außerhalb des gültigen Bereichs

Hi,

ich möchte nachdem Export von Access zu Excel, die Zellen nach dem Wort "TestWort_" durchsuchen.
Dieses Wort soll dan gelöscht werden und alles andere übrig bleiben.
z.B.: "TestWort_12345" -> 12345

In meiner Excel Arbeitsmappe funktioniert dieser Code wunderbar.
With xlSheet.UsedRange
.Replace "TestWort_", "", xlPart
End With

Nun versuche ich aber das gleiche innerhalb von meinem Access Code, damit das direkt nach dem Export durchgeführt wird, leider erhalte ich die Fehlermeldung ("Index außerhalb des gültigen Bereichs").

Kann jmd. helfen?


Private Sub BtnClick()
Dim pfad, dateiName As String
Dim xlApp As Object ' Excel.Application
Dim xlBook As Object 'Excel.Workbook
Dim xlSheet As Object 'Excel.Worksheet
Dim objcell As Object
Dim lZeile As Integer

dateiName = "Test.xlsx"

pfad = "C:MeinPfad"

DoCmd.SetWarnings False

DoCmd.OpenQuery "Finale"



DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Finale", pfad & dateiName, True, "qrytemp"

DoCmd.SetWarnings True



On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application")
End If

On Error GoTo 0
Set xlBook = xlApp.Workbooks.Open(pfad & dateiName)
Set xlSheet = xlBook.Worksheets(1)


With xlSheet.UsedRange
.Replace "TestWort_", "", xlPart
End With

xlSheet.Columns("A:Z").EntireColumn.AutoFit


xlBook.Save
xlBook.Close
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing

MsgBox "Export abgeschlossen!"
End Sub

:)

 

Moin,

Warum wird die Änderung nicht vor dem Export vorgenommen?

 

Access kennt kein xlPart. Bei late-bound musst Du Excel-Konstanten nachbilden oder ihren Longwert angeben.

 

Hi,

weil es einige Spalten gibt, die gleich heißen.

Es gibt mehrere Spalten die z.B. "12345" heißen.

Wenn es also 2 Spalten gibt die "12345" heißen, schreibt Access beim Exportieren automatisch die Referenz davor, aus dem dieser Wert ermittelt wurde.

Dan steht da also "Tabelle1_12345" und "Tabelle2_12345".

Ich möchte aber nicht dass die Referenz zu sehen ist, da soll nur der "echte" Spaltenname, in diesem Fall "12345" stehen.

Da ich die Namen der Tabellen kenne, möchte ich sie also nach dem Export aus Excel entfernen, nachdem Access sie automatisch wegen Redundanz umbenannt hat.

Vor dem Export kann ich also die Wörter nicht entfernen weil Access sie erst beim Exportieren automatisch erzeugt.

Hoffe man versteht mich *Smilie

 

Das war ja einfacher als gedacht.

Hab einfach xlPart entfernt und es funktioniert perfekt.


Vielen Dank. Darauf wäre ich nie gekommen.

 

Mich verwirren auch in Excel 2 gleiche Spaltenbezeichner. Wenn die redundante Information nötig ist, sollte deren Quelle auch erkennbar sein. Das wäre elegant mit Alias möglich und den ganzen geposteten Code überflüssig machen.