代码不对写入不了数据

qinshuai8507

我想把宏文件的A1数据写入到目录中的A1表格中，但是试了半天写不进去，中间那个代码不知道如何编写

ykcbf1100

你要写入目标工作簿的哪个表？

qinshuai8507

ykcbf1100 发表于 2024-3-21 14:19
你要写入目标工作簿的哪个表？

就是打开表格的sheet1就行

ykcbf1100

qinshuai8507 发表于 2024-3-21 14:52
就是打开表格的sheet1就行

逻辑混乱，无法改，新写一个。

ykcbf1100

没有目标工作簿，故没测试。

1. Sub ykcbf()   '//2024.3.21
   
2.     p = ThisWorkbook.Path & ""
   
3.     st = [a1]
   
4.     With Application.FileDialog(msoFileDialogFilePicker)
   
5.         .InitialFileName = p
   
6.         .Title = "请选择对应Excel文件"
   
7.         .AllowMultiSelect = False
   
8.         .Filters.Clear
   
9.         .Filters.Add "Excel文件", "*.xls*"
   
10.         If .Show Then f = .SelectedItems(1) Else Exit Sub
    
11.     End With
    
12.     Set wb = Workbooks.Open(f, 0)
    
13.     wb.Sheets(1).[a1] = st
    
14.     wb.Close 1
    
15.     MsgBox "OK！"
    
16. End Sub
    
17. 
    

复制代码

qinshuai8507

ykcbf1100 发表于 2024-3-21 15:34
没有目标工作簿，故没测试。

老师不是单个文件，是这个文件夹下的所有文件

ykcbf1100

qinshuai8507 发表于 2024-3-22 14:40
老师不是单个文件，是这个文件夹下的所有文件

问题是你的附件中没有其它文件啊

qinshuai8507

ykcbf1100 发表于 2024-3-22 14:50
问题是你的附件中没有其它文件啊

已上传附件

ykcbf1100

qinshuai8507 发表于 2024-3-22 16:12
已上传附件

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.22
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
5.     st = sh.[a1]
   
6.     p = ThisWorkbook.Path & ""
   
7.     For Each f In fso.GetFolder(p).Files
   
8.         If f.Name Like "*.xls*" Then
   
9.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
10.                 fn = fso.GetBaseName(f)
    
11.                 Set wb = Workbooks.Open(f, 0)
    
12.                 With wb.Sheets(1)
    
13.                     .[a1] = st
    
14.                     wb.Close 1
    
15.                 End With
    
16.             End If
    
17.         End If
    
18.     Next f
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码