VBA GetObject打开工作表后保存，原工作表不见了

HadesBoss

各位老师：
我用VBA  GetObject打开工作薄后保存，里面原来的工作表不见了。
我是下面的代码，自动自数
With GetObject(win & Me.ListBox1.List(r))
‘在外面有循环，依次打开表
'取出一些数后，关闭
        .Close True
End With

取数都很正常，做完事后，再回去单独单开那些用过的工作表，里面就没有内容了，请问是怎么回事呢？

谢谢！

燕雀安知

技术7的人表述还那么差劲，无怪乎此论坛充斥的尽是怪词怪句了，真心佩服。

“里面就没有内容了”，哪里的“里面”？工作表的？还是整个工作簿的？

提示下：恐怕不是没了，是藏了吧！！！！！！！

再提示下：打开工作簿后，试着去“窗口”菜单，“取消隐藏”命令中找找看。

HadesBoss

燕雀安知 发表于 2014-11-26 12:08
技术7的人表述还那么差劲，无怪乎此论坛充斥的尽是怪词怪句了，真心佩服。

“里面就没有内容了”，哪里的 ...

不好意思，太急噪了一点，没有说清楚，给你理解造成了一定困惑。
1.是工作薄里没有了工作表。
2.在VBE可以看到工作表，但不是隐藏了。visible属性是true(-1- xlsheetvisible)
3.但就是在excel编辑窗口看不到工作表。

燕雀安知

HadesBoss 发表于 2014-11-26 12:29
不好意思，太急噪了一点，没有说清楚，给你理解造成了一定困惑。
1.是工作薄里没有了工作表。
2.在VBE可 ...

你认真看了前面楼层的回复了吗？
用得着去VBE确认Sheets是否在吗？搞得也太复杂了吧！

再说一遍：在Excel主界面下，点击菜单“窗口”→“取消隐藏……”

燕雀安知

估计即便你找出了“藏”着的工作簿，再迷惑于你的本来的目的，试着参考如下代码，添加必要的语句：

With GetObject(win & Me.ListBox1.List(r))
‘在外面有循环，依次打开表
'取出一些数后，关闭
        Application.ShowWindowsInTaskBar = False
           Application.ScreenUpdating = False
           .Visible = True
        .Close True
          Application.ShowWindowsInTaskBar = True
          Application.ScreenUpdating = True

End With

HadesBoss

已经找到原因了。
http://club.excelhome.net/thread-1058654-1-1.html
在代码中加入Windows(.Name).Visible = True

2楼兄弟，我的技术分数不能代表什么，最多只能代表我在某一时期在某一问题上论坛的老师给予的一个评价。
请不要一棍打一片，
谢谢关注！

燕雀安知

HadesBoss 发表于 2014-11-26 12:44
已经找到原因了。
http://club.excelhome.net/thread-1058654-1-1.html
在代码中加入Windows(.Name).Visi ...

我只能说，你的虚心好学还欠缺很多。

你认为你所找到的参考帖（肯定的是，方向找对了）中的代码，比我在5楼给的代码还完美？！！！

HadesBoss

燕雀安知 发表于 2014-11-26 12:51
我只能说，你的虚心好学还欠缺很多。

你认为你所找到的参考帖（肯定的是，方向找对了）中的代码，比我 ...

不好意思哈，我回贴前没有见刷新到你的五楼。

HadesBoss

燕雀安知 发表于 2014-11-26 12:41
估计即便你找出了“藏”着的工作簿，再迷惑于你的本来的目的，试着参考如下代码，添加必要的语句：

With ...

很棒！
请原谅我发现晚了。

vba连接

Sub test()  Dim ywd As Workbook '源文件工作簿 Dim mwd As Workbook '目标文件工作簿 Dim ysheet As Worksheet Dim msheet As Worksheet  ' 打开源工作簿和目标工作簿 Set ywd = GetObject("C:\Users\Administrator\Desktop\临时\1.xlsx") Set mwd = GetObject("C:\Users\Administrator\Desktop\临时\2.xlsx")  ' 设置工作表     Set ysheet = ywd.Sheets(1)     Set msheet = mwd.Sheets(1)       ' 复制和粘贴     ysheet.Range("E3:E75").Copy     msheet.Range("E3").PasteSpecial Paste:=xlPasteValues          ' 保存目标工作簿     mwd.Save       ' 清除剪切板     Application.CutCopyMode = False      ' 关闭源工作簿，不保存      ywd.Close SaveChanges:=False      mwd.Close     '    Set ysheet = Nothing '    Set msheet = Nothing '    Set ywd = Nothing '    Set mwd = Nothing   End Sub