学习中，新增工作簿并命名代码出错了

tanglaoya0645

新手请教代码，要根据原始表中a列数据名称建立新工作簿，路径同原始表，代码出错了，不知应该怎么修改了，谢谢！！！

xd3210

Sub newadd()
Dim wb As Workbook, i As Long, j As Long, k As Variant
Application.ScreenUpdating = False
j = Sheets("sheet1").[a65535].End(xlUp).Row
    For i = 1 To j
        k = Cells(i, "a")
        Set wb = Workbooks.Add
        wb.SaveAs ThisWorkbook.path & "\" & k & ".xlsx"
        wb.Close False
    Next
Application.ScreenUpdating = True
End Sub

xd3210

请测试！！

abc123281

Set wb = Workbooks.Add

tanglaoya0645

xd3210 发表于 2018-4-4 10:46
请测试！！

ok没问题，谢谢

abc123281

1. Sub newadd()
   
2. Dim wb As Workbook, i As Long, j As Long, k As Variant
   
3. Application.ScreenUpdating = False
   
4. j = Sheets("sheet1").[a65535].End(xlUp).Row
   
5.     For i = 1 To j - 1
   
6.         k = Cells(i + 1, "a")
   
7.         Set wb = Workbooks.Add
   
8.         wb.SaveAs ThisWorkbook.Path & "" & k
   
9.         wb.Close False
   
10.     Next
    
11. Application.ScreenUpdating = True
    
12. End Sub

复制代码

lsc900707

Sub newadd()
Dim wb As Workbook, i As Long, j As Long, k As Variant
Application.ScreenUpdating = False
j = Sheets("sheet1").[a65535].End(xlUp).Row
    For i = 2 To j
        k = Cells(i, "a")
        Set wb = Workbooks.Add
        wb.SaveAs ThisWorkbook.path & "\" & k & ".xlsx"
        wb.Close False
    Next
Application.ScreenUpdating = True
End Sub

tanglaoya0645

lsc900707 发表于 2018-4-4 11:25
Sub newadd()
Dim wb As Workbook, i As Long, j As Long, k As Variant
Application.ScreenUpdating = F ...

谢谢！
详细标记了我的错误，非常感谢！

tanglaoya0645

lsc900707 发表于 2018-4-4 11:25
Sub newadd()
Dim wb As Workbook, i As Long, j As Long, k As Variant
Application.ScreenUpdating = F ...

请教您个问题，想避免产生同名的工作簿怎么修改？

lsc900707

tanglaoya0645 发表于 2018-4-4 13:39
请教您个问题，想避免产生同名的工作簿怎么修改？

是指原来文件夹里已经有工作簿而避免同名还是你的a列里有重复的数据而重名？