Excel Vba
2008-12-30 18:23
411 查看
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err
Dim wb As Workbook
Dim StrCell, StrCell2, StrCell3, StrFlod, StrWorkbook As String
With Application
.ScreenUpdating = False
.EnableEvents = False
StrCell = Cells(1, 1).Value
StrCell2 = Cells(2, 1).Value
StrCell3 = Cells(3, 1).Value
StrFlod = "D:/TEST"
Cells(1, 2) = StrFlod
StrWorkbook = "/" & StrCell & "-" & StrCell2 & "-" & StrCell3 & ".xls"
Set wb = Workbooks.Open(StrFlod & StrWorkbook, True, True)
Cells(2, 2) = StrFlod & StrWorkbook
Cells(3, 2) = wb.Worksheets(StrCell & "-" & StrCell2 & "-" & StrCell3).Cells(1, 1)
Cells(4, 2) = Application.WorksheetFunction.VLookup(Cells(5, 1), Workbooks(StrFlod & StrWorkbook).Worksheets(StrCell & " - " & StrCell2 & " - " & StrCell3).Range("A1:B46"), 2, False)
wb.Close False
Set wb = Nothing
.EnableEvents = True
.ScreenUpdating = True
End With
Exit Sub
On Error GoTo Err
Dim wb As Workbook
Dim StrCell, StrCell2, StrCell3, StrFlod, StrWorkbook As String
With Application
.ScreenUpdating = False
.EnableEvents = False
StrCell = Cells(1, 1).Value
StrCell2 = Cells(2, 1).Value
StrCell3 = Cells(3, 1).Value
StrFlod = "D:/TEST"
Cells(1, 2) = StrFlod
StrWorkbook = "/" & StrCell & "-" & StrCell2 & "-" & StrCell3 & ".xls"
Set wb = Workbooks.Open(StrFlod & StrWorkbook, True, True)
Cells(2, 2) = StrFlod & StrWorkbook
Cells(3, 2) = wb.Worksheets(StrCell & "-" & StrCell2 & "-" & StrCell3).Cells(1, 1)
Cells(4, 2) = Application.WorksheetFunction.VLookup(Cells(5, 1), Workbooks(StrFlod & StrWorkbook).Worksheets(StrCell & " - " & StrCell2 & " - " & StrCell3).Range("A1:B46"), 2, False)
wb.Close False
Set wb = Nothing
.EnableEvents = True
.ScreenUpdating = True
End With
Exit Sub
相关文章推荐
- Excel VBA---将列对应数字转换为字母
- [VBA] excel vba控件常规使用
- Excel VBA: Delete Module After Running VBA Code. Deleting Modules via VBA Code
- Excel VBA连接并操作Oracle
- Excel VBA 编程---语法上
- Excel VBA工程密码破解程序
- [Excel VBA] 新建一个工作表并为其添加代码
- excel vba 玫瑰图 风速 风向
- 编写高效Excel VBA代码的最佳实践(二)
- Excel VBA - Range对象
- Excel VBA - 数组及其他知识
- Excel VBA(2) Workbooks and Worksheets
- 关于Excel vba 提示用户定义类型未定义
- Excel VBA 开发环境
- Excel VBA实现 通过文件名查找全路径
- Excel VBA 代替Sumproduct实现多条件求和
- excel vba调用windows API快速查找文件
- excel vba 连接 postgreSQL
- excel vba真正的动态数组实例
- Excel VBA循环绘制GIF图片到文件