16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim temp As String
Dim i As Integer
xlapp = CreateObject("Excel.Application") '创建EXCEL对象
xlbook = xlapp.Workbooks.Open("f:\1.xls") '打开已经存在的test.xls工件簿文件
xlapp.Visible = True '设置EXCEL对象可见(或不可见)
xlsheet = xlapp.Worksheets(1) '设置活动工作表''
IO.Directory.CreateDirectory("F:\dir")
For i = 1 To 379
temp = xlsheet.Cells(i, 1).Value()
IO.Directory.CreateDirectory("f:\dir\" & temp)
Next i
xlapp.Quit()
End Sub