[µo°Ý] «e«á°õ¦æ¨â­Ó¤£¦Pxls¤¤ªº¥¨¶°

joey0415

°²³]
A.XLS¤¤¦³
A-1  ¥¨¶°
A-2  ¥¨¶°
B.XLS¤¤¦³
B-1  ¥¨¶°
B-2  ¥¨¶°

§Æ±æ¥´¶}A.XLS«á¡A¦Û°Ê°õ¦æA-1»PA-2«á¡AÃö³¬¦sÀÉ«á¡A©I¥sb.XLS«á¡A¦Û°Ê°õ¦æb-1»Pb-2«á¡A¤]¯àÃö³¬¦sÀÉ
¥H«e³£¬O³]©w´XÂI¥´¶}A.XLS¡A¦A¤@­Ó¤p®É­Ô¦A¥´¶}B.XLS
==================================================
¦A½Ð±Ð¤@­Ó°ÝÃD
­YA-1¤¤¦³­ÓFOR°j°é¡A§Æ±æ¦b°õ¦æ®É¡A¯à¶¶«K§é¶}¤@­ÓTXTÀÉ¡A¬ö¿ý°õ¦æ¨ì¡u¤é´Á+²Ä´X¦¸¡v¨Ã¦sÀÉ¡I¦]¬°¦³®É­Ô¤@¦ý¦³¿ù»~®É¡A¥u­n¥´¶}TXT´N¯àª¾¹D¿ù¦b­þ¡H

½Ð°ª¤â«üÂI¤@¤G

ÁÂÁÂ

joey0415

¦^´_  joey0415
¬O³o¼Ë¶Ü?
GBKEE µoªí©ó 2014-6-28 15:50

ÁÂÁ¡A¦^®a·|¨Ó¸Õ¸Õ¬Ý

GBKEE

¦^´_ 1# joey0415
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim I As Integer
   
4.     If Dir("d:\test.txt") <> "" Then Kill "d:\test.txt"
   
5.     For I = 1 To 10
   
6.         Close #1
   
7.         Open "d:\test.txt" For Append As #1
   
8.         Print #1, "¤é´Á ²Ä" & I; "¦¸"
   
9.         Close #1
   
10.     Next
    
11. End Sub

½Æ»s¥N½X

ui123

§Ú¥H«e¦³¹J¨ìÃþ¦ü°ÝÃD¡A´N¦h¤@­ÓÀÉ®×¥h±±¨îA,B¥¨¶°¡AGBKEE¤j¦³À°§Ú¸Ñ¨M¨ä¤¤ªº¤p°ÝÃD...
http://forum.twbts.com/thread-12046-1-1.html