kevinch 发表于 2012-7-26 20:52:31

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Target, ) Is Nothing Then Exit Sub
    Dim myPath As String,I!
    myPath = ThisWorkbook.Path
    Open myPath & "\ABC.INI" For Output As #1
    Print #1, ""
    for i=1 to 18
      print #1, i & "=" & trim(cells(2,i).value)
    next i
    Close #1
End Sub试下
页: 1 [2]
查看完整版本: 讀EXCEL單元格並建立數組(求其他的語法)