如题所述
æ ¼å¼å对äºåï¼
Workbooks.Open "D:\abc.xls"
å¦å¤æ³¨æï¼
1, .Open åé¢æä¸ªç©ºæ ¼
2,æå¼çè¦å æ¬æ件路å¾åæ件å
3,è¦å¸¦åè¾(.xls)
4,è¦ä¿è¯è¿ä¸ªæ件æ¯å¯ä»¥æå¼çï¼å¯ä»¥å æå¨æå¼è¯ä¸ã追é®
Workbooks.Open "D:\abc.xls"
å¦å¤æ³¨æï¼
1, .Open åé¢æä¸ªç©ºæ ¼
2,æå¼çè¦å æ¬æ件路å¾åæ件å
3,è¦å¸¦åè¾(.xls)
4,è¦ä¿è¯è¿ä¸ªæ件æ¯å¯ä»¥æå¼çï¼å¯ä»¥å æå¨æå¼è¯ä¸ã追é®
ææ¯åçï¼Set Wb = Workbooks.Open(MyPath & "\" & MyName, UpdateLinks = 1)
çªå£ä¸æ¹ä¼ææå¼çæ件ï¼æä¸æ³çå°ï¼ç¨ä»ä¹è¿è¡éè
å¦æä½ è¯´çæ¯æå¼æ°çå·¥ä½ç°¿åï¼ä¸æ³å¨å端æ¾ç¤ºï¼é£å¯ä»¥å¨ç¨åºå¼å¤´å ä¸Application.Screenupdat
ing=False
å¦æä½ è¯´çæ¯ä¸æ³å¨ä»»å¡æ é£éæ¾ç¤ºææå¼æ°çå·¥ä½ç°¿ï¼é£åªæä¸ä¸ªåéçæ¹æ³ã
å¨æå¼è¿ä¸ªæ°çå·¥ä½ç°¿ä¹åï¼set wb=...è¿å¥ä¹åï¼å ä¸ä¸ªApplication.visible=False, ææ°æå¼çå·¥ä½ç°¿ä¸çæ°æ®å¼ç¨æå¤çå®æ¯ï¼å
³éæ°æå¼çè¿ä¸ªå·¥ä½ç°¿åï¼åå ä¸ä¸ªApplication.visible=True.
温馨提示:答案为网友推荐,仅供参考