Private Sub CommandButton1_Click() 'Dim Cmt As Comment Dim excelApp As Object Dim xlsWbk, objWdApp As Object Dim commentsArray Dim rows, temp, i, x, y As Integer Dim filename As String 'Dim myWDoc As Word.Document Dim authorName As String '获取选择中文件的名字…