【VB6.0 数据库连接EXCEL查询合并单元格成功解决办法】 Private Sub Command1_Click() On Error Resume Next Dim i As Integer, j As Integer filestr = App.Path & "\" & " 123.xls" ‘设置文件位置字符串 ExcelConnection.Open "Prov