摘要： Sub QQ1722187970() Dim sFN As String sFN = Excel.Application.GetOpenFilename() If Len(sFN) Then Dim arrName() Dim objCatalog Set objCatalog = VBA.Crea 阅读全文