******如何跨工作薄引用******

yu88 · 发表于 2014-7-16 10:00

如何跨工作薄引用，杭州分店6月报表中的“员工业绩登计表”的职位，根据对应的姓名引用到手工查询表中“店铺周报表手工填写”表的C23:C33里。另外，引用工作薄的名称，根据Q1单元格的数字来决定

0716.rar (91.15 KB, 下载次数: 11)

zax010 · 发表于 2014-7-16 10:36

Sub zz()
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
yf = Sheet3.[q1].Value
Workbooks.Open (ThisWorkbook.Path & "\杭州分店" & yf & "月报表.xlsm")
      arr = ActiveWorkbook.Sheets("员工业绩登计表").[a1].CurrentRegion
      ActiveWorkbook.Close False
For i = 2 To UBound(arr)
      d(arr(i, 1)) = arr(i, 2)
Next
With Sheet3
      For i = 23 To .[a1048576].End(3).Row
         .Cells(i, 3).Value = d(.Cells(i, 1).Value)
      Next
      Application.ScreenUpdating = True
End With
End Sub

zax010 · 发表于 2014-7-16 10:38

>>>>>>>>>>>>

0716.rar (90.84 KB, 下载次数: 5)

yu88 · 发表于 2014-7-16 11:26

zax010 发表于 2014-7-16 10:36
Sub zz()
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False

感谢zax010老师，我想对所有店都通用,而不只限于杭州分店
(ThisWorkbook.Path & "\杭州分店" & yf & "月报表.xlsm") 这一段应该怎么修改，谢谢！

yu88 · 发表于 2014-7-16 15:39

zax010 发表于 2014-7-16 10:36
Sub zz()
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False

另外，我B列右边还有很多数据
arr = ActiveWorkbook.Sheets("员工业绩登计表").[a1].CurrentRegion 这段就会报错，应该如何改？谢谢

zax010 · 发表于 2014-7-16 21:11

yu88 发表于 2014-7-16 11:26
感谢zax010老师，我想对所有店都通用,而不只限于杭州分店
(ThisWorkbook.Path & "\杭州分店" & yf & "月 ...

Sub zzz()
Dim myPath$, myFile$, AK As Workbook, i As Integer
Dim d, arr
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
myPath = ThisWorkbook.Path & "\"
myFile = Dir(myPath & "*.xlsm")
yf = Sheet3.[q1].Value
Do While myFile <> ""
      If myFile <> ThisWorkbook.Name And InStr(myFile, yf & "月") Then
         Set AK = Workbooks.Open(myPath & myFile)
         With AK
            lr = .Sheets("员工业绩登计表").[a1048576].End(3).Row
            arr = .Sheets("员工业绩登计表").Range("A2:B" & lr)
            .Close False
         End With
         For i = 2 To UBound(arr)
            d(arr(i, 1)) = arr(i, 2)
         Next
      End If
      myFile = Dir
Loop
With Sheet3
      er = .[a1048576].End(3).Row
      .Range("C23:C" & er) = ""
      For i = 23 To er
         .Cells(i, 3).Value = d(.Cells(i, 1).Value)
      Next
End With
Application.ScreenUpdating = True
End Sub

zax010 · 发表于 2014-7-16 21:13

本帖最后由 zax010 于 2014-7-16 21:15 编辑

yu88 发表于 2014-7-16 11:26
感谢zax010老师，我想对所有店都通用,而不只限于杭州分店
(ThisWorkbook.Path & "\杭州分店" & yf & "月 ...

>>>>>>>>>>>>>>

0716.rar (121.64 KB, 下载次数: 8)

		自动登录	找回密码
密码			免费注册

[求助] 如何跨工作薄引用

评分

评分

最新热点 /1

[求助] ******如何跨工作薄引用******

评分

评分

最新热点 /1

[求助] 如何跨工作薄引用