티스토리 뷰

반응형

 

참조 - COM - Microsoft Excel 14.0 object Library 사용하면 됩니다!!

없으면 하위버젼도 상관없어요!!

    Private Sub excel()
        Dim xls As New Excel.Application
        Dim xworkbook As Excel.Workbook
        Dim xworksheet As Excel.Worksheet
        Dim xRange As Excel.Range

        Dim xlotno As String

        xworkbook = xls.Workbooks.Open("E:\12345.xls")

        xworksheet = xworkbook.Sheets(1)

        xRange = xworksheet.Range("A1")

        xlotno = xRange.Value 'Read

        MsgBox(xlotno)

        'Write
        'xRange = "TEST"

        xworkbook.Close()
        xls.Quit()
    End Sub

반응형
공지사항
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
«   2025/02   »
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28
글 보관함