【求助】vba如何将数据存储在指定工作簿里

yunfeng123

本人初学vba，就想通过test工作簿在指定工作簿new中的a46中写入字符串。怎奈才疏学浅，运行后并未在new工作簿中的工作表中写入数据，看了好两天也没找到原因，烦请大神看下问题所在，附件已打包上传，烦请帮忙看下，谢谢！

3190496160

测试一切正常，能够写入数据的，要不，换一种打开文件的方式看看

3190496160

Option Explicit
Public Sub BefRun()
Dim wb As Workbook, temp As String, n As Integer
Application.ScreenUpdating = False
temp = ThisWorkbook.Path & "\new.xlsx"
Set wb = Workbooks.Open(temp)
wb.Activate
For n = 1 To wb.Sheets.Count
    If wb.Sheets(n).Name = "现付" Then
        wb.Sheets(n).Range("a46") = "test success"
        MsgBox ("运行成功")
    Else
        MsgBox ("运行失败")
    End If
Next
wb.Close savechanges:=True
Application.ScreenUpdating = True
End Sub

abc123281

错误原因：
给指定的工作簿赋值，工作簿必须打开，修改如下
Set wb = GetObject(temp)
Windows(wb.Name).Visible = True
或者
Set wb = Workbooks.Open(temp)

yunfeng123

3190496160 发表于 2020-2-6 10:36
Option Explicit
Public Sub BefRun()
Dim wb As Workbook, temp As String, n As Integer

非常感谢大神赐教，现已可以运行了。

yunfeng123

abc123281 发表于 2020-2-6 11:03
错误原因：
给指定的工作簿赋值，工作簿必须打开，修改如下
Set wb = GetObject(temp)

非常感谢大神赐教，受益多多