Excel VBA - 文本文件和文件夹操作实例集锦(8)

Set r1 = Range(\ If Not r1 Is Nothing Then nn = r1.Row

Cells(nn, 3).Select

ActiveSheet.Pictures.Insert(myFile(i)).Select Selection.Left = Cells(nn, 3).Left Selection.Top = Cells(nn, 3).Top Selection.Width = Cells(nn, 3).Width Selection.Height = Cells(nn, 3).Height End If Next Else

MsgBox \该文件夹里没有任何文件\ End If End With

Set myFs = Nothing End Sub

21，将文本文件读入数组

‘http://club.excelhome.net/viewthread.php?tid=494968&pid=3251062&page=1&extra=page=1

‘twoball1024.xls Sub macro1()

Dim s() As String, i As Long, v() As String, dic As Object, t(63) As String, temp As String, d, n As Long

Dim j&, k% t(0) = \