VBA:使用工作表和变量延迟时出现运行时错误'1004‘
VBA:使用工作表和变量延迟时出现运行时错误'1004‘
提问于 2015-03-30 09:54:25
Public ws As Worksheet
Public Const Mpath As String = "H:\BankingGrp\MM Board rates\"
Dim USDON As Long, USDTN As Long, USDSN As Long, USD1W As Long, _
USD2W As Long, USD3W As Long, USD1M As Long, USD2M As Long, _
USD3M As Long, USD6M As Long, USD9M As Long, USD12M As Long
Sub Record()
Workbooks.Open Filename:=Mpath & Format(Date, "DD") & " " & _
Format(Date, "MMM") & " " & Format(Date, "YYYY") & ".xls"
Set ws = ActiveWorkbook.Worksheets("BOARD RATE")我应该使用范围声明而使用"Set USDON = Range("B15")“吗？
USDON = ws.Range(“B15”).Value
USDTN = ws.Range(“D17”).Value
USDSN = ws.Range(“F19”).Value
USD1W = ws.Range(“D21”).Value
USD2W = ws.Range(“D23”).Value
USD3W = ws.Range(“D25”).Value
End SubStack Overflow用户
发布于 2015-03-30 14:01:41
您的双引号符号不正确。它们不是标准的双引号，而是有角度的引号。例如，USDON = ws.Range(“B15”).Value应该变成USDON = ws.Range("B15").Value (注意B15周围的引号略有变化)。
取而代之的是，你的作业应该变成：
USDON = ws.Range("B15").Value
USDTN = ws.Range("D17").Value
USDSN = ws.Range("F19").Value
USD1W = ws.Range("D21").Value
USD2W = ws.Range("D23").Value
USD3W = ws.Range("D25").Value页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/29337249
复制相关文章
相似问题
腾讯云开发者
