å°±ä¸å¾è¯´,æ¯ä¸æ¯å¯¼åºçtxtæ件å
容åªéè¦å°ç¬¬äºè¡,èæ件ååæ¯å
¶ä¸è¥å¹²è¡çä¸ä¸ª"æ件å½å"ä¸ä¸ä¸ªåå
æ ¼çå
容?
å
ç»ä½ ä¸æ®µä»£ç ,æ¯å®æ´å¤å¶ä¸ºtxtææ¡£ç.æalt+f11 åå»å·¦ä¾§ç表å,å¨å³ä¾§å¤å¶ä»¥ä¸ä»£ç ,ç¶åè¿è¡å为aaçå®å³å¯.
Sub aa()
Do
r = r + 1
Loop Until Cells(r, 1) = "æ件å½å"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(r + 1, 1) & ".txt", _
FileFormat:=xlText, CreateBackup:=False
End Sub
å¦ætxtæ件çå
容ä¸å«ææ件å½åé£ä¸¤æ ¼å
容ç åæ³åæ¯æ,ä¸è¿æ¯è¾éº»ç¦.æçé®å¯ä»¥è¿½é®.
温馨提示:内容为网友见解,仅供参考