推荐回答
PrivateSubCommandButton1_ClickDimxlAppAsExcel.Application=NewExcel.ApplicationxlApp.DisplayAlerts=FalsexlApp.Workbooks.Open"d: est.xlsx"DimxlShtAsExcel.Worksheet=xlApp.Sheets1DimxlRngAsExcel.Range=xlSht.Cells1,1Textbox1.Text=xlRng.ValueEndSub。
齐明强2019-11-03 15:59:41
提示您:回答为网友贡献,仅供参考。