A是什么意思？A盘么？不大可能吧。我按D盘做的，不对的话请自己修改一下下面的路径。建一个Command1，单击按钮即可。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Private Sub Command1_Click()Dim a1 As String, a2 As String, xls1 As Excel.Application, xls2 As Excel.Application, xls3 As Excel.ApplicationSet xls1 = CreateObject("excel.application")Set xls2 = CreateObject("excel.application")Set xls3
