Excel VBA小程序

Sub 表格计算()
    Application.DisplayAlerts = False
    Dim fd As FileDialog
    Dim wb As Workbook
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show = -1 Then
             Dim vrtSelectedItem As Variant
             For Each vrtSelectedItem In .SelectedItems
               
                Set wb = Workbooks.Open(vrtSelectedItem)
                 Call stock_run
                 If wb.FileFormat = 56 Then
                   newname = Replace(vrtSelectedItem, ".xls", "-" & Format(Date, "yyyy.mm.dd") & ".xlsx")
                   wb.SaveAs Filename:=newname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
                   
                 Else
                   newname = Replace(vrtSelectedItem, ".xlsx", "-" & Format(Date, "yyyy.mm.dd") & ".xlsx")
                   wb.SaveAs Filename:=newname

                 End If
                ActiveWorkbook.Close True
            Next vrtSelectedItem
        End If
    End With
    Set wb = Nothing
    Application.DisplayAlerts = True
End Sub

按题号啊,题号唯一就可以了。查到题号之后按照题号的坐标offset就可以了

你很厉害的。

把表与目的要求发我邮箱，最好举例说一下，以便理解你的意图。mfk1288@126.com