Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 如何将预定义字符串设置为";wb";_Vba_Excel - Fatal编程技术网

Vba 如何将预定义字符串设置为";wb";

Vba 如何将预定义字符串设置为";wb";,vba,excel,Vba,Excel,我想将工作簿设置为维度。此工作簿已定义为字符串。然而,当我将这个字符串设置为“wb”时,我得到一个类型不匹配错误 目前的线路是: Dim History as String History = "Filename.xlsx" Dim wb As Workbook Set wb = History 有什么想法吗?就是这样: Dim History as String History = "Filename.xlsx" Dim wb As Workbook Set wb = Workbo

我想将工作簿设置为维度。此工作簿已定义为字符串。然而,当我将这个字符串设置为“wb”时,我得到一个类型不匹配错误

目前的线路是:

Dim History as String

History = "Filename.xlsx" 

Dim wb As Workbook
Set wb = History 
有什么想法吗?

就是这样:

Dim History as String
History = "Filename.xlsx"

Dim wb As Workbook
Set wb = Workbooks(History)

Tim的解决方案假设
FileName.xlsx
已经打开。如果不是,则:

Sub TomHolland()
    Dim History As String
    History = "Filename.xlsx"
    Workbooks.Open "C:\TestFolder\" & History
    Dim wb As Workbook
    Set wb = ActiveWorkbook
End Sub

或者类似的事情

这奏效了,谢谢伙计们。我已经有一个工作簿开放行,但这是在设置尺寸等后放置的。。。还在学习!还有一个问题,我的问题被否决了,你知道为什么吗?只是为了让我知道如何在将来发布不太受欢迎的问题。。。我确实试着编辑以正确格式化代码等。。。也许这只是一个愚蠢的问题开始!不要担心落选——这不是一个“坏”问题