Scott090

¦^´_ 17# quickfixer


    ÁÂÁÂÂI©ú¤F application.run  --> app1.Run "test"

quickfixer

¦^´_ 20# 502243


    dim §ï public,¹³ gbkee  #16 ¨º¹³¼g,´N¥i¥H§âÃö³¬©ñ¨ì¥t¤@­Ósub
Public app1 As Object, book1 As Excel.Workbook

adrian_9832

Sub readData()

'数Õu读¨ú
'----------------------------------------------
    Dim dataExcel, Workbook, sheet
    Dim totalRow  As Integer
    Set dataExcel = CreateObject("Excel.Application")
    Set Workbook = dataExcel.Workbooks.Open("E:\­n读¨ú数Õuªº·½¤å¥ó.xlsx")
    Set sheet = Workbook.Worksheets(1)     '读¨ú²Ä¤@个sheet页ªº数Õu
    totalRow = sheet.UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
    For i = 2 To totalRow
         
         Sheets("sheet1").Cells(i, 3) = sheet.Cells(i, 4)
        
    Next i
    Workbook.Close
    MsgBox "读¨ú¦¨¥\¡I", vbSystemModal '读¨ú§¹¦Z弹®Ø´£¿ô
'----------------------------------------------
End Sub

502243

¦^´_ 22# quickfixer

·PÁÂquickfixer¤j..¤@»yÅå¿ô¹Ú¤¤¤H..
ÁÙ¦b·Q»¡«ç»ò©î¤À...
²{¦b¤w¸g¶¶§Q±N«Ø¦¨ª«¥ó..©MAÀÉcopy¨ìCÀÉ..CÀÉcopy¦^AÀÉ ..¤À¦¨3­Ó°Æµ{¦¡®Ø¬[
³Ñ¤U¦A§â¨ä¾lªº°Æµ{¦¡¥[¤J¨ä¤¤...
½Õ¾ã¤@¨Ç¬yµ{¨BÆJ..

·PÁ¦^À³³o½g¥DÃDªº¦U¦ì«e½úÂI¿ô...