¦p¦ó¥ÎVBA¶×¤JCSVÀÉ?

am0251

¦³°ª¤â¥i¥H±Ð§Ú¤@¤U¦p¦ó¥ÎVBA¶×¤JCSVÀÉ©O?ÁÙ¥i¥H¦Û¿ï¦C©M¤À¹jªº²Å¸¹,ÁÂÁÂ~~!

GBKEE

¦^´_ 13# toromru
°Ñ¦Ò³o¸Ì
http://forum.twbts.com/viewthread.php?tid=8522

toromru

¦^´_ 9# GBKEE


    ±z¦n  ·Q¸ß°Ý ³o¼Ëª½±µ¶×¤J ¤¤¤å·|Åܦ¨¶Ã½X ·|¦³¸Ñ¶Ü?!

ikboy

¦^´_ 11# toromru


    sub zz()
    sheets.copy
    activeworkbook.saveas "test"
    end sub
    'µo¦Û§Úªº¤p¦Ì¤â¾÷

toromru

¦^´_ 2# jimmyhk


    §A¦n ·Q¸ß°Ý ³o¼Ë¶}±Ò«á ¦³¿ìªk¦Û°Ê¥t¦s¨ì«ü©w¦ì§}ªºxlsÀɮ׶Ü?

    ¦p«ü©w¨ì "C:\test"  ³o¼Ë!!!

am0251

ÁÂÁ¦^ÂÐ,¥i¬O§Ú¥Î"¿ý»s"ªº¤èªk±o¨ì¤F¤U­±ªº¥¨¶°,¦³¨S¦³¿ìªk²³æªº¤èªk¼g¥X¨Ó©O?

1. Sub csv()
   
2. '
   
3. ' csv Macro
   
4. '
   
5. 
   
6. '
   
7.     With ActiveSheet.QueryTables.ADD(Connection:= _
   
8.         "TEXT;E:\Excel\270710.csv", Destination:=Range("$A$1"))
   
9.         .Name = "270710"
   
10.         .FieldNames = True
    
11.         .RowNumbers = False
    
12.         .FillAdjacentFormulas = False
    
13.         .PreserveFormatting = True
    
14.         .RefreshOnFileOpen = False
    
15.         .RefreshStyle = xlInsertDeleteCells
    
16.         .SavePassword = False
    
17.         .SaveData = True
    
18.         .AdjustColumnWidth = True
    
19.         .RefreshPeriod = 0
    
20.         .TextFilePromptOnRefresh = False
    
21.         .TextFilePlatform = 950
    
22.         .TextFileStartRow = 1
    
23.         .TextFileParseType = xlDelimited
    
24.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
    
25.         .TextFileConsecutiveDelimiter = True
    
26.         .TextFileTabDelimiter = True
    
27.         .TextFileSemicolonDelimiter = False
    
28.         .TextFileCommaDelimiter = True
    
29.         .TextFileSpaceDelimiter = True
    
30.         .TextFileColumnDataTypes = Array(1, 1, 9, 9, 1, 1, 1)
    
31.         .TextFileTrailingMinusNumbers = True
    
32.         .Refresh BackgroundQuery:=False
    
33.     End With
    
34. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# am0251

1. Sub Ex()
   
2.     Dim ¶×¥XÀÉ As String, ¶×¤JÀÉ As Workbook
   
3.     Set ¶×¤JÀÉ = ActiveWorkbook
   
4.     'Set ¶×¤JÀÉ = Workbooks("TEST.XLS")
   
5.     ¶×¥XÀÉ = "D:\TEST\270710.CSV"
   
6.     With Workbooks.Open(¶×¥XÀÉ).Sheets(1)
   
7.         ¶×¤JÀÉ.Sheets(1).Range("A:A") = .Range("B:B").Value
   
8.         ¶×¤JÀÉ.Sheets(1).Range("B:B") = .Range("E:E").Value
   
9.         .Parent.Close False    'Ãö³¬ ¶×¥XÀÉ
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

am0251

ÁÂÁ¦^ÂÐ,¥i¯à¬O§Úªí¹Fªº¤£¬O«Ü¦n,³o­ÓÀɮ׬O§Ú¥Î"¸ê®Æ - ±q¤å¦rÀÉ"ªº¤èªk¶×¤Jªº,"SHEET1"¤À¹j²Å¸¹¬O¥Î¤F,"³rÂI" ©M "ªÅ®æ","SHEET2"´N¬O§Ú­nªº¥Øªº¤F,¥u¦³²Ä2©M²Ä5¦æ¶×¤J¤F,§Ú¥u¬O¨S¿ìªk¼g¥X¨Ó........ Inport CSV.rar (122.98 KB)

¤U¸ü¦¸¼Æ: 10

2011-9-29 13:19

GBKEE

¦^´_ 6# am0251

1. Sub Ex()
   
2.     Dim ¶×¥XÀÉ As String, ¶×¤JÀÉ As Workbook
   
3.     Set ¶×¤JÀÉ = ActiveWorkbook     'Set ¶×¤JÀÉ = Workbooks("TEST.XLS")
   
4.     ¶×¥XÀÉ = "D:\TEST\270710.CSV"
   
5.     With Workbooks.Open(¶×¥XÀÉ).Sheets(1)
   
6.         .Range("A5").Resize(5).EntireRow.Copy ¶×¤JÀÉ.Sheets(1).[A1]
   
7.         '.Range("A5").Resize(5) ->5¦C  ,  EntireRow ¾ã¦C½d³ò
   
8.           .Parent.Close False    'Ãö³¬ ¶×¥XÀÉ
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

am0251

270710.rar (18.22 KB)

¤U¸ü¦¸¼Æ: 14

2011-9-28 15:02

ÁÂÁ¨â¦ìªº¦^ÂÐ,¥u¬Oluhpro¤j¤jªº¼gªk¦³ÂIÃø,¤pªº¨S¬ÝÀ´¦h¤Ö,¨ä¹ê§Ú¥u¬O·Q"¶×¤J"CSV"ÀÉ,¦Ó¤£¬O"¶}±Ò"¦]¬°§Ú­n¿ï¾Ü"¤À¹j²Å¸¹",¦p"TABÁä" "¤À¸¹" "³rÂI" "ªÅ®æ" µ¥¤èªk,ÁÙ¦³´N¬O¶×¤Jªº¦æ¼Æ,¦p³o­ÓÀÉ®×,§Úªº¤À¹j²Å¸¹¬O "³rÂI" ©M "ªÅ®æ",¶×¤Jªº¦æ¼Æ¥u¬O²Ä2¦æ©M²Ä5¦æ,¸Ó«ç»ò¼g©O?