将数据从Excel表单传递到新电子表格(Passing data from a Excel form to a new spreadsheet)

 我在Excel中尝试新的东西。 就像我对VBA一样新，所以请耐心等待。 
 
 我有一个包含大量内容的表单..一个项目是一个打开电子表格的按钮。 我想将表单中的信息传递给新打开的电子表格，但是我正在墙上运行。 我做了以下.. 
 
 在表单顶部声明了一个公共变量 
 
Public instno As String
 
 然后在表单的初始化我从当前工作表中为该字符串赋值。 
 
Sub UserForm_Initialize()
instno = Cells(ActiveCell.Row, "J").Value
' other stuff in here too, this is just for this problem...
End Sub
 
 现在打开新工作簿的按钮的代码，我试图将值传递给。 
 
Private Sub CMB2_Click() 
Dim xlApp As Excel.Application 
Set xlApp = CreateObject("Excel.Application") 
xlApp.Visible = True 
xlApp.Workbooks.Open Filename:="G:\tracking.xlsm"
Cells(13, "E").Value = instno 'data should go into cell E13
End Sub
 
 对我不起作用，有什么建议吗？ 工作簿打开正常，无法将数据输入其中。 

I´m trying something new in Excel. Just as new as I am to VBA, so please bear with me.
 
I have a form with a bunch of things on it.. one item is a button that opens a spreadsheet. I would like to pass information from the form to the newly opened spreadsheet but am running against a wall. I did the following..
 
Declared a public variable right at the top of the form
 
Public instno As String
 
then on the initialization of the form I assign a value to this string from the current worksheet.
 
Sub UserForm_Initialize()
instno = Cells(ActiveCell.Row, "J").Value
' other stuff in here too, this is just for this problem...
End Sub
 
Now the code for the button that opens the new workbook and that I am trying to pass the value to.
 
Private Sub CMB2_Click() 
Dim xlApp As Excel.Application 
Set xlApp = CreateObject("Excel.Application") 
xlApp.Visible = True 
xlApp.Workbooks.Open Filename:="G:\tracking.xlsm"
Cells(13, "E").Value = instno 'data should go into cell E13
End Sub
 
Does not work for me, any suggestions ? The workbook opens fine, just can´t get the data into it.

原文：https://stackoverflow.com/questions/16129830