摘要:
Sub LoadExcelData() Dim wkbk As Workbook '定义一个工作薄 Dim myFileName As String '定义要读取的文件路径 Dim rgA1 As String'定义要读取的单元格A1 Dim rgB10 As String'定义要读取的单元格B10 myFileName = Application.GetOpenFilename("EXCEL文件(*.xls), *.xls") '浏览文件,如XX公司08年XX表.xls If myFileName = "False" Then '如果按取消那么弹出对话框 MsgBox "请选择文件!", v 阅读全文
posted @ 2011-01-09 12:44
高天乐
阅读(7618)
评论(0)
推荐(0)

浙公网安备 33010602011771号