如何基于现有工作簿G列数据创建同名Excel工作簿（筛选.xlsx行）

核心问题修正 #

你的SaveAs语句语法错误在于将VBA变量和单元格引用错误地包裹在字符串引号内，导致VBA无法解析变量和单元格值，正确写法需用&运算符拼接字符串、变量与单元格内容。

完整可运行代码 #

Sub Macro1()
    Call createfile
End Sub

Sub createfile()
    Dim ws As Worksheet
    Dim i As Long
    Dim lastRow As Long
    Dim sStoreFile As String
    Dim newWB As Workbook
    
    ' 绑定当前活动工作簿的目标工作表（可根据实际修改工作表名称）
    Set ws = ActiveWorkbook.ActiveSheet
    ' 替换为你的实际保存文件夹路径，确保末尾带反斜杠
    sStoreFile = "C:\Your\Target\Folder\"
    
    ' 获取F列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
    
    ' 遍历F列（假设表头在第1行，从第2行开始检查）
    For i = 1 To lastRow - 1
        ' 判断当前行F列值是否为.xlsx
        If ws.Range("F" & i + 1).Value = ".xlsx" Then
            ' 创建新工作簿并绑定对象
            Set newWB = Workbooks.Add
            
            ' 拼接路径与G列文件名，保存为xlsx格式
            newWB.SaveAs Filename:=sStoreFile & ws.Range("G" & i + 1).Value & ".xlsx", _
                        FileFormat:=xlOpenXMLWorkbook
            
            ' 关闭新工作簿（无需保留打开状态时启用）
            newWB.Close SaveChanges:=False
        End If
    Next i
End Sub

关键修正点说明 #

• 字符串拼接逻辑：原错误语句把变量和单元格引用写在引号内，正确方式是用&连接保存路径变量、G列单元格值与文件后缀
• 对象引用优化：用newWB变量直接绑定新建工作簿，比ActiveWorkbook更可靠（避免窗口切换导致的引用错误）
• 格式指定：添加FileFormat:=xlOpenXMLWorkbook确保保存为标准xlsx格式，兼容不同Excel版本
• 路径合法性：确保sStoreFile是有效文件夹路径且末尾带反斜杠，避免文件名拼接错误

注意事项 #

• 替换代码中的sStoreFile为你的实际保存路径
• 如果G列的值已包含.xlsx后缀，删除代码中的& ".xlsx"部分
• 确认当前工作簿F列存在值为.xlsx的行，否则不会创建文件

内容的提问来源于stack exchange，提问作者sugruma