几个匹配等疑问，请教下各位老师

用户名用什么好

目的：将工作簿中除了“报表”外，其他的表转为数值格式并另存为新的工作簿，并命名为“新工作簿“




学习了大家的代码，修改了一下，但还有几个疑问未解，还请各位老师帮忙看看，谢谢！

问题：
1、新的工作簿文件名，怎么以“广东”中的A3单元格内容？如A2单元格内容为“e3897“，新文件名为“e3897”
2、新工作簿保存在当前目录
3、除“转换”表外，还有“广东”表也不另存


谢谢！



Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
     f = Application.GetSaveAsFilename("新工作簿", fileFilter:="WPS表格 文件(*.et),*.et")
    If f = False Then Exit Sub
    For Each sh In Worksheets
        If sh.Visible = xlSheetVisible And sh.Name <> "转换" Then
            m = m + 1
            If m = 1 Then sh.Select Else sh.Select False
        End If
    Next
    ActiveWindow.SelectedSheets.Copy
    For Each sh In Worksheets
        sh.Unprotect ("000000")
        With sh.UsedRange
            .Value = .Value
        End With
        sh.Protect ("000000")
    Next
    ActiveWorkbook.Close True, f
    Sheets("转换").Select
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
     
End Sub

用户名用什么好

问题1已解决

fanyoulin

用户名用什么好 发表于 2023-4-30 10:16
问题1已解决

另存比较简单，你录制一个宏就有代码，为了简洁把宏录制的所有.select全部去掉，差不多就可以了；

fanyoulin

看了一下你的附件，太零散了，你把几个问题放一个文件更好。

用户名用什么好

fanyoulin 发表于 2023-4-30 10:46
看了一下你的附件，太零散了，你把几个问题放一个文件更好。

我找了大家的代码拼接而已的

已解决文件名命名的问题

问题2/3静待解决

fanyoulin

用户名用什么好 发表于 2023-4-30 10:54
我找了大家的代码拼接而已的

已解决文件名命名的问题

你这问题1和问题2就是一回事啊，另存：


Worksheets(i).Move   '将工作表i移动到新工作簿
ActiveWorkbook.SaveAs Filename:=路径 & 文件名 & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close  '关闭

其中：
路径：可以用 thisworkbook.path代替，它就是当前主文件的路径；
文件名：你说用”广东“的a2单元格，那就是 worksheets(2).cells(2,1) 或者 worksheets("广东").range("a2") ,它们是一个意思；
第三个问题我没看懂，你说的是不转换另存广东表，这不算问题吧？

于箱长

3.是否可以全部工作表都另存到新工作簿，然后再删除多余的这两个工作表

ykcbf1100

附件供参考。。。

用户名用什么好

ykcbf1100 发表于 2023-4-30 21:25
附件供参考。。。

谢谢，谢谢，解决了繁杂的案头工作，祝老师五一快乐！！！