如何把一个文件的数据拷贝到新建文件（VBA小白求助）

shohokus

如何把工作簿 区县数据.xlsm中的工作表 原始数据 复制到一个新建文件，位置是D：\    ，下面是我写的代码，一直报错，无法调试，VBA小白求助！！！！！
Public Sub test_new()
Dim wb As Workbook
Workbook.Add
Set wb = ActiveWorkbook
Workbooks("区县数据.xlsm").Worksheets("原始数据").Copy
    With wb
         .ActiveSheet(1).Name = "复制原始表"
         .SaveAs "D:\& day(now)&.xlsx"
    End With
End Sub

shohokus

帖子不要沉啊！！

mzbao

1. Public Sub test_new()
   
2.     Dim wb As Workbook
   
3.    
   
4.     Set wb = Workbooks.Add
   
5.     ThisWorkbook.Worksheets("原始数据").Copy Before:=wb.Sheets(1)
   
6.     With wb
   
7.          .Sheets(1).Name = "复制原始表"
   
8.          .SaveAs "D:" & Day(Date) & ".xlsx"
   
9.     End With
   
10. End Sub

复制代码

代码里的“.SaveAs "D:\" & Day(Date) & ".xlsx"”自动把"\"去掉了。你自己把\加上就可以了

shohokus

mzbao 发表于 2017-4-26 16:12
代码里的“.SaveAs "D:\" & Day(Date) & ".xlsx"”自动把"\"去掉了。你自己把\加上就可以了

非常感谢，可以运行了。。。