[英]Code gives me Compile Error, Expected: List Separator or )
我正在尝试创建一个 Excel VBA 按钮代码,它将复制A8:A399
、 B8:B399
、 C8:C399
、 D8:D399
、 E8:E399
、 F8:F399
F399 、 G8:G399
、 H8:H399
中的数据excel工作簿到另一个工作簿而不打开它。 但是我使用的代码给了我一条错误消息:
编译错误,预期:列表分隔符或)
它突出显示Set myData = Workbooks.SaveAs(“C:\\Users\\athif\\Desktop\\Test_Pos\\DataBase.xlsx”)
中的(:)
。 请告诉我一个解决方案。
这是我的代码:
Private Sub CommandButton1_Click()
LR = Range("A399").End(xlUp).Row
LR1 = Range("B399").End(xlUp).Row
LR2 = Range("C399").End(xlUp).Row
LR3 = Range("D399").End(xlUp).Row
LR4 = Range("E399").End(xlUp).Row
LR5 = Range("F399").End(xlUp).Row
LR6 = Range("G399").End(xlUp).Row
LR7 = Range("H399").End(xlUp).Row
Dim itemIndex As String
Dim itemNumber As String
Dim itemDetails As String
Dim itemPrice As Single
Dim itemCust_nam As String
Dim itemMobile As String
Dim itemDate As String
Dim itemTime As String
Dim myData As Workbook
Worksheets(“Sheet1”).Select
itemIndex = Range("A8:A" & LR)
itemNumber = Range("B8:B" & LR1)
itemDetails = Range("C8:C" & LR2)
itemPrice = Range("D8:D" & LR3)
itemCust_nam = Range("E8:E" & LR4)
itemMobile = Range("F8:F" & LR5)
itemDate = Range("G8:G" & LR6)
itemTime = Range("H8:H" & LR7)
Set myData = Workbooks.SaveAs(“C:\Users\athif\Desktop\Test_Pos\DataBase.xlsx”)
Worksheets(“Sales”).Select
Worksheets(“Sales”).Range(“A1”).Select
RowCount = Worksheets(“Sales”).Range(“A1”).CurrentRegion.Rows.Count
With Worksheets(“Sales”).Range(“A1”)
.Offset(RowCount, 0) = itemIndex
.Offset(RowCount, 1) = itemNumber
.Offset(RowCount, 2) = itemDetails
.Offset(RowCount, 3) = itemPrice
.Offset(RowCount, 4) = itemCust_nam
.Offset(RowCount, 5) = itemMobile
.Offset(RowCount, 6) = ItemData
.Offset(RowCount, 7) = itemTime
End With
myData.Save
End Sub
该行有很多错误
您正在使用“<\/code> .
您需要使用"<\/code>
<\/li>
Workbooks<\/code>没有.SaveAs<\/code>属性
<\/li><\/ol>如果您尝试保存当前工作簿,请执行此操作
对于文件格式,您可能希望查看此<\/a>链接。"
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.