更改c:.xls中sheet1 E2内容修改为1020 ’先点击 工程-引用Microsoft Excel... Private Sub Command1_Click() Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlapp = CreateObject(\"excel.application\") Set xlbook = xlapp.Workbooks.Open(\"c:.xls\") S…