全部答案

2016-07-12 08:31:38

•   作为一个找了一天痛苦的人，我终于找到了一个正确的方法，希望其他所有苦苦追求这个准确代码的人能够最后和我一样，找到这个准确的代码，预祝天下有心人，终成大业！正确代码如下： ‘功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称Sub Books2Sheets()    ‘定义对话框变量    Dim fd As FileDialog    Set fd = Application。
    FileDialog(msoFileDialogFilePicker)        ‘新建一个工作簿    Dim newwb As Workbook    Set newwb = Workbooks。Add        With fd        If 。
    Show = -1 Then            ‘定义单个文件变量            Dim vrtSelectedItem As Variant                        ‘定义循环变量            Dim i As Integer            i = 1                        ‘开始文件检索            For Each vrtSelectedItem In 。
    SelectedItems                ‘打开被合并工作簿                Dim tempwb As Workbook                Set tempwb = Workbooks。Open(vrtSelectedItem)                                ‘复制工作表                tempwb。
    Worksheets(1)。Copy Before:=newwb。Worksheets(i)                                ‘把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx                newwb。
    Worksheets(i)。Name = VBA。Replace(tempwb。Name, “。xls“, ““)                                ‘关闭被合并工作簿                tempwb。
    Close SaveChanges:=False                                i = i + 1            Next vrtSelectedItem        End If    End With        Set fd = NothingEnd Sub。
    

  全部
  

  梦***

  2016-07-12 08:31:38

  101 40 评论

  分享
  提交评论