ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¶}±Ò¦h­ÓcsvÅã¥Ü¶Ã½X

¶}±Ò¦h­ÓcsvÅã¥Ü¶Ã½X

Sub Openfile()
fileToOpen = Application _
        .GetOpenFilename("Excel Files(*.csv*), *.csv*", MultiSelect:=True)
        num = 0
        linenumber = 0
    For num1 = 1 To UBound(fileToOpen)
    num = num + 1
    If fileToOpen(num) <> "False" Then
    Open fileToOpen(num) For Input As #1 ' Open file for input
    Do While Not EOF(1) ' Loop until end of file
        linenumber = linenumber + 1
        Line Input #1, line
        arrayOfElements = Split(line, ",")
        elementnumber = 0
        For Each element In arrayOfElements
            elementnumber = elementnumber + 1
            Cells(linenumber, elementnumber).Value = element
        Next
    Loop
    End If
Close #1 ' Close file.
Next num1
End Sub
³o¬O§Úªºµ{¦¡½X¡A¶}¥X¨Óªº³£¬O¶Ã½X
¥Î¤F¿ý¼v¥¨¶°
µo²{¸òTextFilePlatform¦³Ãö
¦³¤j¯«¥i¥HÀ°§Ú¶Ü

¦^´_ 1# wang077

¥i§_´£¨ÑCSVÀɨӴú¸Õ¬Ý¬Ý¡AÁÂÁÂ

TOP

¦^´_ 2# samwang
¤w¸Ñ¨M¡A·PÁÂ

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD