Private Sub Command1_Click() Dim sFile As String With CommonDialog1 .DialogTitle = "open" .CancelError = False .Filter = "EXCEL文件(*.xls)|*.xls|所有文件 (*.*)|*.*" .ShowOpen If Len(.FileName) = 0 Then Exit Sub End If sFile = .FileName End With
Dim mx As Integer
Dim yx
Dim excelApp As Excel.Application Set excelApp = New Excel.Application excelApp.Workbooks.Open FileName:=sFile 'xlApp.Visible = True excelApp.Worksheets(2).Activate mx = excelApp.Cells(9, 5) Text1.Text = mx excelApp.Workbooks.Close excelApp.Quit Set excelApp = Nothing
End Sub可以将第一个按钮里的代码写成自定义函数. 清数据: excelApp.sheets(2).cells(6,3).clearcontents excelApp.Worksheets(2).Range("C6").Delete 谢谢ls的 那如果要删除该行第六列之后的所有内容该怎么写循环呢？
我在类中有一个函数 Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
