¥Hado¤è¦¡¡A±NcsvÀÉ©ñ¶i°}¦C¤¤¥X¿ù¡H(·í¤¤¦³^¤å¦r¥À)
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¥Hado¤è¦¡¡A±NcsvÀÉ©ñ¶i°}¦C¤¤¥X¿ù¡H(·í¤¤¦³^¤å¦r¥À)
¤p§ÌªºcsvÀɦp¤U¡G
5 5922 11.85 0 2,000
7 5926 11.9 5,000 7,000
9 6162 11.8 1,000 0
11 616K 11.9 1,000 0
13 700I 11.75 2,000 0
15 700I 11.9 1,000 0
¨C¦Cªº²Ä¤GÓ¬O^¤å»P¼Æ¦r²Õ¦¨¡A¨ä³£¬O¼Æ¦r
¦pªG¥H¥±`ªº¤èªk©ñ¦bsheet¤W¡A¨S¦³°ÝÃD
Y±NÀɮשñ¦b°}¦C¤¤¡A«h²Ä¤GÓ·|¥X²{ªÅÈ¡A¦³®ÉÔ¤]·|Åã¥Ünull
¦³¤°»ò¤èªk¥i¥HÅý¥¦¡A¤£·|¥X²{ªÅȦӥB¥i¥H©ñ¶i°}¦C¤¤©O¡H
·|·Qn¥Î³oÓ¤èªk¬O·Qn¥[³t³B²z¼Æ¤d±icsv¡A¦pªG©ñ¦bªí®æ¤W³t«×®t¤W¤@¬q
§Úı±oÃöÁä¦b³o¥y¸Ü¡G
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";Extended Properties=""text;HDR=no;IMEX=1;FMT=Delimited(,)"";"..
½ÐÀ°¦£
ªþ¤WÀÉ®×
temp.zip (105.74 KB)
|
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 2# joey0415
´£¨Ñ§A°Ñ¦Ò¡G- Sub CSV_Import()
- Dim ws As Worksheet, strFile As String
- Sheets("ÀɮצWºÙ").Select
- Cells.Clear
-
- Set ws = ActiveSheet 'set to current worksheet name
- ' strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please select text file...")
- ' §A¤]¥i¥Hª½±µ«ü©wÀɮצWºÙ
- strFile = ThisWorkbook.Path & "\9962.csv"
- With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
- .TextFileParseType = xlDelimited
- .TextFileCommaDelimiter = True
- .Refresh
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# joey0415 - Sub CSV_Import()
- Dim ws As Worksheet, strFile As String, i As Long
- Dim arr
-
- Sheets("ÀɮצWºÙ").Select
- Cells.Clear
-
- Set ws = ActiveSheet 'set to current worksheet name
- ' strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please select text file...")
- ' §A¤]¥i¥Hª½±µ«ü©wÀɮצWºÙ
- strFile = ThisWorkbook.Path & "\9962.csv"
- With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
- .TextFileParseType = xlDelimited
- .TextFileCommaDelimiter = True
- .Refresh
- End With
-
- arr = Range("A1:E" & Range("A" & Rows.Count).End(xlUp).Row)
- For i = LBound(arr, 2) To UBound(arr, 1)
- Debug.Print arr(i, 1) & ","; arr(i, 2) & ", " & arr(i, 3) & ", " & arr(i, 4) & ", " & arr(i, 5) & ";"
- Next i
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¥»©«³Ì«á¥Ñ joey0415 ©ó 2013-10-7 19:47 ½s¿è
¦^´_ 3# c_c_lai
§Ú¦Û¤v¸Õªºµ²ªG¬O¡Aquerytable«á¥¦«á©ñ¦bcells¤W¡A¤@®æ¤@Ó©ñ¦n
¤§«e§Ú¤]¬O³o¼Ë°µ¡A¨S¦³¤å¦r°ÝÃD¡A¨S¦³null°ÝÃD
§Úªº·Qªk¬O¡A¦pªG¥i¥H¥´¶}csvÀÉ¡A¨Ã¥Bª½±µ©ñ¦b°}¦C¤¤·|¤ñ¸û§Ö
¦]¬°«e±¨âÓ¤èªk¡A³Ì«á³£n©ñ¶i¸ê®Æ®w¤¤
¥i¯àÁÙ¦³¨ä¥¦¦n¤èªk¡A¤£¹L¥Ø«e§Ú¥u·|³o¨â©Û
¦pªG¦³§ó¦nªº¤èªk½Ð´£¨Ñ¤@¤U¡K
=========================
¥HQT¤èªk«á±qCELLS©ñ¶i¸ê®Æ®w
¥HADO«á©ñ¶i°}¦C«á¡A¦AÂà¶i¸ê®Æ®w
«eªÌ¡G1500ÓCSV ªá¶O1800~2000¬í
«áªÌ¡G1500ÓCSV ªá¶O1000~1100¬í
¦pªG¦³°ª¤â½Ð¦hÃö·Ó¡K
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
èè¤S¸Õ¤F¤T¦¸¡A²Ä¤GºØ¤èªk¥§¡¥un600¦h¬í¡I¶W§Ö¡I |
|
|
|
|
|
|