麻烦各位大神帮我看看这个代码错在哪里

琴风弦月 · 发表于 2018-9-20 22:59

本帖最后由琴风弦月于 2018-9-21 17:45 编辑

Sub FileDir()
Dim p$, f$, k&, d As Integer
p = ThisWorkbook.Path & ""
f = Dir(p & "*.xls*")
d = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row
Do While f <> ""
If f <> ThisWorkbook.Name Then
Set Wb = Workbooks.Open(p & f)
For i = 1 To d
Do While f = ThisWorkbook.Sheets(1).Range("a" & i).Value
Wb.Sheets(1).Range("b2" ) = Replace(ThisWorkbook.Sheets(1).Range("c" & i).Value, "", "")
Wb.Close True
Loop
Next
End If
f = Dir
Loop
End Sub

复制代码

我想将新建工作簿的C列的内容，录入与A列的数字相对应的工作簿的B2 单元格中，但是我的代码为何只会打开单元格而没有填写内容的。例如：新建工作簿中A列中数字是1，同一行的C列是56，那就在命名为1的工作簿中B2 单元格填写56（只是填写在B2 单元格中）

abc123281 · 发表于 2018-9-20 23:54

新建文件夹abc123.rar (1.7 MB, 下载次数: 3)

tylsj740320 · 发表于 2018-9-21 00:09

你没描述清楚。

琴风弦月 · 发表于 2018-9-21 16:58

tylsj740320 发表于 2018-9-21 00:09
你没描述清楚。

例如：新建工作簿中A列中数字是1，同一行的C列是56，那就在命名为1的工作簿中B2 单元格填写56（只是填写在B2 单元格中）

tylsj740320 · 发表于 2018-9-21 23:31

Sub FileDir()
Dim p$, f$, k&, temp_str$, temp_f$, d As Integer
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xls*")
d = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row
Do While f <> ""
   If f <> ThisWorkbook.Name Then
   Set Wb = Workbooks.Open(p & f)
   For i = 1 To d
      temp_f = Left(f, InStr(1, f, ".") - 1)
      temp_str = ThisWorkbook.Sheets(1).Range("a" & i).Value
      If temp_f = temp_str Then
         Wb.Sheets(1).Range("b2") = Replace(ThisWorkbook.Sheets(1).Range("c" & i).Value, "", "")
         Wb.Close True
      End If
   Next
   End If
f = Dir
  Loop

End Sub

琴风弦月 · 发表于 2018-9-23 10:06

tylsj740320 发表于 2018-9-21 23:31
Sub FileDir()
Dim p$, f$, k&, temp_str$, temp_f$, d As Integer
p = ThisWorkbook.Path & "\" ...

这段代码可以直接赋值，为什么还要用replace函数的

tylsj740320 · 发表于 2018-9-23 10:10

可以不用replace,我看你的源码里就这样，就没有动。

琴风弦月 · 发表于 2018-9-23 10:46

tylsj740320 发表于 2018-9-23 10:10
可以不用replace,我看你的源码里就这样，就没有动。

哦，我总是搞不清楚replace和直接赋值的区别

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

[求助] 麻烦各位 大神帮我看看这个代码错在哪里

[求助] 麻烦各位大神帮我看看这个代码错在哪里