我希望能后台打开,不知道语句错在哪里,然后保存关闭时应该怎么写,我只要关闭1,2工作簿
Sub try()
Dim mypath As String, svalue '定义变量
mypath = "C:\Users\Administrator\Desktop\1.xls"
svalue = "C:\Users\Administrator\Desktop\2.xlsm"
Workbooks.Open Filename:=mypath '这句是打开文件
'ActiveWorkbook.Visible = False '这句是隐藏文件
ActiveWorkbook.Sheets(1).Range("a1").Value = "hello"
Workbooks.Open Filename:=svalue
Application.DisplayAlerts = False
ActiveWorkbook.Close True
ActiveWorkbook.Close True
End Sub
æ¹æè¿æ ·ï¼
Sub try()è¿æ ·åºç°äºä¸ä¸ªé®é¢ï¼ææå¨æå¼1å2ï¼ç»ææä»ä¹é½çä¸å°äºï¼è¿æ¯æä¹åäºï¼æè¿æ³è¯·æä¸ä¸ªé®é¢ï¼æä¹å®ç°æè¿æ ·å好çå·¥ä½è¡¨ï¼ä¸æ¯éé¢æå ¬å¼çï¼åææ°åæè ææ¬æ ¼å¼çï¼è¿æä¸ç¥éä½ æ没æç¨è¿GOOFFICEï¼å¦ææç¨è¿ä¸ªå·æ°1.xlsï¼è½ä¸å¨åå°æå¼2ï¼å·æ°2ä¸çæ°æ®å
追çå¦æè¦æ¾ç¤º1å2ï¼ä»£ç æ¹æ
Sub try()æ没æç¨è¿GOOFFICEï¼ä½æ¯ä¼°è®¡GOOFFICEæ æ³è¿è¡è¿æ ·çå®ã