尾到尾

gwjkkkkk

请参考。。。

ddz79101

gwjkkkkk 发表于 2024-11-8 20:50
请参考。。。

谢谢老师！运行成功！

usedrange

ykcbf1100 发表于 2024-11-8 15:29
表名应该是文本格式的吧。
sh.name=3  这个应该是sh.name="3"吧

好像会自动转换成字符类型

ddz79101

ykcbf1100 发表于 2024-11-8 12:34
附件供参考。。。
自动判断工作表是否已存在，已存在只复制数据，否则先新增表，然后再复制数据。

老师！我看你以前将代码导入切换到导出，只是稍改了就可了，我也尝试着将你的代码由导入的改为导出，但多次修改未成。老师！你可以帮忙看看嘛？谢谢！

ykcbf1100

ddz79101 发表于 2024-11-12 19:30
老师！我看你以前将代码导入切换到导出，只是稍改了就可了，我也尝试着将你的代码由导入的改为导出，但多 ...

我改一下，你对照再看一下。

ykcbf1100

反向操作。。。

1. Sub ykcbf()   '//2024.11.12
   
2.     Application.ScreenUpdating = False
   
3.     Set ws = ThisWorkbook     'ws
   
4.     p = ws.Path & ""         'ws
   
5.     With Application.FileDialog(msoFileDialogFilePicker)
   
6.         .InitialFileName = p
   
7.         .Title = "请选择对应Excel文件"
   
8.         .AllowMultiSelect = False
   
9.         .Filters.Clear
   
10.         .Filters.Add "Excel文件", "*.xls*"
    
11.         If .Show Then f = .SelectedItems(1) Else Exit Sub
    
12.     End With
    
13.     Set wb = Workbooks.Open(f, 0)     'wb
    
14.     On Error Resume Next
    
15.     With ws     'ws
    
16.         For Each sh In .Sheets
    
17.             If Val(sh.Name) Then
    
18.                 arr = sh.UsedRange
    
19.                 Set sht = wb.Sheets(sh.Name)
    
20.                 If Err <> 0 Then
    
21.                     Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    
22.                     sht.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
23.                     sht.Name = sh.Name
    
24.                 Else
    
25.                     sht.Cells.ClearContents
    
26.                     sht.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
27.                     sht.Name = sh.Name
    
28.                 End If
    
29.             End If
    
30.         Next
    
31.     End With
    
32.     wb.Close 1
    
33.     Application.ScreenUpdating = True
    
34.     MsgBox "OK！"
    
35. End Sub
    
36. 
    

复制代码

ddz79101

ykcbf1100 发表于 2024-11-12 19:43
我改一下，你对照再看一下。

谢谢老师！运行成功！我想得太简单了，变化的真多！