请教VBA的Workbook问题

大家好
小弟简单写了一个VBA,
用来复制一个已经设计好的模板,
并附上新的名字.

小弟的问题在于,
复制模板成功后,
并在新生成的excel中填写一些信息.

代码写好后,
却打不开复制生成的excel文件.
关闭后台excel程序,
尝试打开excel文件,
但是什么都没有显示出来(没有单元格,只能新建或打开工作薄)

希望各位大大们能帮帮忙!
在此先谢谢了.

附上小弟写的代码
TableName = Sheets("list").Range("D" & i).Value
relativePath = ThisWorkbook.Path & "\数据库表定义\"
newFile = relativePath & numberId & "." & TableName & ".xlsx"
FileCopy relativePath & "00.模型.xlsx", newFile
Set wb = GetObject(newFile)
wb.Sheets("表").[数据库产品名].Value = "Mysql"
wb.Sheets("表").[数据库名称].Value = "FitPark"
wb.Sheets("表").[表名].Value = TableName
wb.Sheets("表").[建表人].Value = "杜凯"
wb.Sheets("表").[建表日期].Value = Date
wb.Close (True)
MsgBox (numberId & "." & TableName & ".xlsx 文件创建成功")

亲，改成这个试试：
Set wb = Workbooks.Open(newFile)

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息