Hej,
Jag försöker kopiera in data från olika flikar i en excelfil till olika flikar i en annan excelfil. För vissa av flikarna fungerar det men för två av flikarna fungerar det inte. Exempel nedan, de två första flikarna fungerar, men inte den tredje.

Får felmeddelande "Run-time error '-2147217900 (80040e14)' Invalid bracketing of name RET. MAT. RECIEPT QT.

Någon som har någon aning om vad det beror på och eventuell lösning på problemet? Kan det bero på att det är en punkt i fliknamnet?


Sub ImporteraExcelTillExcel_ADO()

'--------------------------------------------------------------
'importerar data från en extern Excelbok utan att öppna den
'--------------------------------------------------------------


'variabeldeklareringar
Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim recRubrik As ADODB.Field
Dim strDB, strSQL As String
Dim strDriver As String
Dim i As Long

'sökväg till den externa Excelfilen
strDB = "B:\LP\Cewe-Control\QA\Avdelningen\Drives Warranty process\20180306.xls"
'strDB = "C:\ExcelVBA\MinExcelFil.xlsx" 'filen i annan folder

'uppkoppling
Set datConnection = New ADODB.Connection

Set recSet = New ADODB.Recordset

strDriver = "DRIVER=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)"
datConnection.Open "DBQ=" & strDB & ";" & strDriver & ";UID=admin;"

'SQL-förfrågan
strSQL = "SELECT * FROM [NCR-PRODUCT$A1:BI9999]" 'cellområde på visst ark
'strSQL = "SELECT * FROM [Cellområdesnamn]" 'för namngivna cellområden

'öppnar ett "recordset"
recSet.Open strSQL, datConnection, adOpenStatic

'väljer rätt sheet
Sheets("NCR-PRODUCT").Select

'kopierar in ny data
ActiveSheet.Range("A2").CopyFromRecordset recSet

'upprepar ovan för nästa blad i excelfilen (2)
Set recSetB = New ADODB.Recordset
strSQL = "SELECT * FROM [CREDIT-DEBIT NOTE QT$A1:L9999]"
recSetB.Open strSQL, datConnection, adOpenStatic
Sheets("CREDIT-DEBIT NOTE QT").Select
ActiveSheet.Range("A2").CopyFromRecordset recSetB

'upprepar ovan för nästa blad i excelfilen (3)
Set recSetC = New ADODB.Recordset
strSQL = "SELECT * FROM [RET. MAT. RECIEPT QT$A1:L9999]"
recSetC.Open strSQL, datConnection, adOpenStatic
Sheets("RET. MAT. RECIEPT QT").Select
ActiveSheet.Range("A2").CopyFromRecordset recSetC

'kopplar ned (viktigt!)
recSet.Close
datConnection.Close

'stänger ned objekten (viktigt!)
Set recSet = Nothing
Set datConnection = Nothing


End Sub