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

kevinch

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

复制代码

试下