有一些数据需要依次填入各个表格中，烦请各位老师赐教

LIUZHU · 发表于 2024-3-20 16:28

WPS软件打开并测试

qinshuai8507 · 发表于 2024-3-20 16:51

fzxba 发表于 2024-3-20 15:55
实现你的功能很简单，是不是要有对应的关系？如
1、2行对应名为 1 的工作簿，
3、4行对应名为 2 的工 ...

是的老师，就是需要对应的
1、2行对应名为 1 的工作簿，
3、4行对应名为 2 的工作簿，
5、6行对应名为 3 的工作簿……

qinshuai8507 · 发表于 2024-3-20 16:54

ykcbf1100 发表于 2024-3-20 16:17
你把我搞糊涂了，不知道怎么去处理。
先放一放吧，难应该是不难。

就是读两行然后写入相应的表格中，然后接着后两行再接着写入下个表中，一直循环下去，直到没有表格就停止

fzxba · 发表于 2024-3-20 17:07

qinshuai8507 发表于 2024-3-20 16:51
是的老师，就是需要对应的
1、2行对应名为 1 的工作簿，
3、4行对应名为 2 的工作簿，

测试.zip (89.98 KB, 下载次数: 10)

qinshuai8507 · 发表于 2024-3-20 17:33

fzxba 发表于 2024-3-20 17:07

已测试，非常好用，我本来想您给弄个基础我再自己修改完善，结果看不懂，还得再麻烦您
还需要再加3列数据
读取2、4、6......行,数据C2写入到表格k41，数据D2写入到表格D37，数据E2写入到表格F37
不好意思又麻烦您了，麻烦有空给看下，万分感谢

qinshuai8507 · 发表于 2024-3-20 17:40

LIUZHU 发表于 2024-3-20 16:28
WPS软件打开并测试

已测试，非常好用，我本来想您给弄个基础我再自己修改完善，结果看不懂，还得再麻烦您
还需要再加3列数据
读取2、4、6......行,数据C2写入到表格k41，数据D2写入到表格D37，数据E2写入到表格F37
麻烦有空给看下，万分感谢

fzxba · 发表于 2024-3-20 17:46

qinshuai8507 发表于 2024-3-20 17:40
已测试，非常好用，我本来想您给弄个基础我再自己修改完善，结果看不懂，还得再麻烦您
还需要再加3列数 ...

数据1.zip (18.71 KB, 下载次数: 3)

qinshuai8507 · 发表于 2024-3-20 18:10

fzxba 发表于 2024-3-20 17:46

非常感谢，小部分数据测试非常好用，等明天我弄一千多数据再试试

qinshuai8507 · 发表于 2024-3-21 10:09

ykcbf1100 发表于 2024-3-20 15:36
一个文件只提取二行数据，还是提取全部数据？

老师您好
Sub yy()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim fso, fl, fp
Dim wb As Workbook
Set fso = CreateObject("Scripting.FileSystemObject")
fp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & ""
'mys = InputBox("请输入需要更改的名称。")
For Each fl In fso.getfolder(fp).Files
      If InStr(fl.Name, ThisWorkbook.Name) = 0 Then
      Set wb = Workbooks.Open(fl)
      With ActiveSheet.PageSetup
      .PrintTitleRows = ""
      .PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup

   Range("A1").Select
ActiveCell.FormulaR1C1 = ActiveSheet.Range("A1").Value

End With
      wb.Close True
   End If
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
我想把宏文件A1表格中的数据写入到目标文件A1表格中，试了半天也不行，麻烦您给修改下

qinshuai8507 · 发表于 2024-3-22 14:18

fzxba 发表于 2024-3-20 17:07

老师我测试下目录下文件名变成别的就不能执行了，还有能不能给改成我手动选择目录文件夹然后执行

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

[求助] 有一些数据需要依次填入各个表格中，烦请各位老师赐教

评分

评分