讀EXCEL單元格並建立數組(求其他的語法)

kevinch

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Target, [A2:R2]) Is Nothing Then Exit Sub
    Dim myPath As String,I!
    myPath = ThisWorkbook.Path
    Open myPath & "\ABC.INI" For Output As #1
    Print #1, "[ABC]"
    for i=1 to 18
        print #1, i & "=" & trim(cells(2,i).value)
    next i
    Close #1
End Sub

试下