从工作簿创build工作簿与macros并发送到不同的计算机

我有一个macros，用一些button创build一个工作簿，并从Excel工作表中取得信息。

该macros在创build它的计算机上运行时工作。 如果我发送新创build的文件到不同的计算机，它会要求我更新数据源，如果我select不更新button不起作用。 如果我select更新它说它不能文件personal.xlsb文件。

macros为什么不工作？ 我想我的主要问题是，如果我正在创build一个新的下拉列表和button，有没有办法将这个保存到新的文件与他们将使用的function？

这是我的一些代码：

'Create New Workbook Function AddNew() As Workbook Set AddNew = Workbooks.Add() Wname = ActiveWorkbook.name Wname = Left(Wname, Len(Wname) - 5) With AddNew .SaveAs Filename:=Wname & ".xlsx" End With nwrkbksaved = True End Function 'Run the create new Workbook function and pull information to new sheet Public Sub TemplateCreate() Set thisWB = ActiveWorkbook 'Set up template for new workbook Set NewBook.Workbook = AddNew 'Check to see if New Workbook exists If nwrkbksaved = False Then GoTo term 'Pull information code Set btn = NewBook.Workbook.Sheets("sheet1").Buttons.Add(Range("F15").Left, Range("F15").Top, 165, 15) With btn .OnAction = "getData" .Caption = "Submit" .name = "submitData" End With End Sub Function getData() 'Get data code End Function 

Answer 1

你好我能弄清楚这个信息。 经过更多的研究，这是答案，我能够拿出希望它有助于，如果你遇到这个问题：

我使用以下链接获取帮助http://www.cpearson.com/Excel/VBE.aspx

 Dim ToVBProject As VBIDE.VBProject Dim FromVBProject As VBIDE.VBProject Dim Fname As String Fname = "Path of bas + bas name.bas" FromVBProject.VBComponents("module").Export Fname ToVBProject.VBComponents.Import (Fname) 

再次感谢您的帮助！