DoCmd.TransferSpreadsheet Range 搞砸了 Name 添加 $ 而不是？

Question

Everytime I try and put names in the ranges it keeps adding a $ instead of a ! like I typed it. Using office 365. Running the code inside excel trying to get it to import into Access but I keep getting an error.

Sub ImportLine14()

    Dim accappl As Access.Application
    Dim strpathdb As String
    Dim strpathxls As String
    'Dim myrange As String, myrow1 As String, myrow2 As String
    'Dim fullRange As Range

    strpathdb = "\\US5MS0005\_Group Folders\Public\Production Data\Production Database\dbPlantData_be.accdb"
    'path to the upload file
    
    strpathxls = "\\US5MS0005\_Group Folders\Public\Production Schedule SAP\Production Schedule 2022  DugTest.xlsm"
    
    Set accappl = New Access.Application
    
    accappl.OpenCurrentDatabase strpathdb
    Dim Page As Worksheet
    Dim lRow As Long, LCol As Long
    Dim fullrange As String
    Dim PageName As String
    
    'fullrange = Worksheets("Line14P").Range(Worksheets("Line14P").Cells(1, 1), Worksheets("Line14P").Cells(lRow, LCol))
    
    PageName = Worksheets("Line14").Name
        
            lRow = Worksheets("Line14").Range("A" & Rows.Count).End(xlUp).Row
            LCol = Worksheets("Line14").Cells(2, Columns.Count).End(xlToLeft).Column
            fullrange = Worksheets("Line14").Range(Worksheets("Line14").Cells(1, 1), _
                           Worksheets("Line14").Cells(lRow, LCol)).Address
            xclam = PageName & "!" & fullrange
    
    accappl.DoCmd.TransferSpreadsheet TransferType:=acImport, _
             SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
             TableName:="tblProcessOrder", Filename:=strpathxls, _
             HasFieldNames:=True, Range:=PageName & "!" & fullrange
    accappl.Quit
    
End Sub

Results from Immediate Window Show Correct

Print PageName

Line14
Print fullrange
$A$1:$G$18
print xclam
Line14!$A$1:$G$18
Print PageName
Line14

But this Error Shows Up enter image description here Not sure what Else to do

Answer 1

If data with headers starts at A1 , you don't need cell ranges. So simply set up Range argument as Line14! .

But if do set up cell ranges, you do not need $ . So simply set up Range as Line14!A1:G18 .