chin15

¦^´_ 1# metrostar


    µ²ªG¤£ª¾¬O§_¥¿½T

1. Sub test()
   
2. 
   
3.     Open "d:\SP20110801.txt" For Output As #1
   
4.     For r = 1 To [A65536].End(xlUp).Row
   
5.         If r = 1 Then
   
6.             c = Cells(1, 11).Resize(, 7)
   
7. 
   
8.             mystr = Join(Application.Transpose(Application.Transpose(c)), ",")
   
9.         Else
   
10.             x = Cells(r, 1)
    
11.             If IsNumeric(x) Then
    
12.                 x = [j1] & Application.Text(x, "0000")
    
13.             Else
    
14.                 x = [j1] & x
    
15.             End If
    
16.             mystr = x & "," & "20110801" & "," & Cells(r, 3) & "," & Cells(r, 4) & "," & Cells(r, 5) & "," & Cells(r, 6) & "," & Cells(r, 8)
    
17.         End If
    
18. 
    
19.         Print #1, mystr
    
20.     Next
    
21.     Close #1
    
22. End Sub

½Æ»s¥N½X

chin15

¦^´_ 3# metrostar
¹ï¤£°_¡A§Ú¤£¬O«Ó­ô¡A¾Çªø§ó¤£´±·í¡A¤~­è°_¨B¾Ç²ß¡C

1. Sub test()
   
2. With Sheet1
   
3.     For r = 1 To .[A65536].End(xlUp).Row
   
4.         If r = 1 Then
   
5.             mystr = Array("<TICKER>", "<DTYYYYSSDD>", "<OPEN>", "<HIGH>", "<LOW>", "<CLOSE>", "<VOL>")
   
6.         Else
   
7.             x = .Cells(r, 1)
   
8.             If IsNumeric(x) Then
   
9.                 x = .[j1] & Application.Text(x, "0000")
   
10.             Else
    
11.                 x = [j1] & x
    
12.             End If
    
13.             mystr = Array(x, "20110802", .Cells(r, 3), .Cells(r, 4), .Cells(r, 5), .Cells(r, 6), .Cells(r, 8))
    
14.         End If
    
15. 
    
16. Sheet2.Cells(r, 1).Resize(, 7) = mystr
    
17. Next
    
18. End With
    
19. End Sub

½Æ»s¥N½X

chin15

mystr = Array(x, Application.Text(Date, "yyyymmdd"), .Cells(r, 3), .Cells(r, 4), .Cells(r, 5), .Cells(r, 6), .Cells(r, 8))
§ï³o¦æ