Excel VBA 试图将数据从 Excel 工作簿发送到另一个

大佬教程收集整理的这篇文章主要介绍了Excel VBA 试图将数据从 Excel 工作簿发送到另一个，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决Excel VBA 试图将数据从 Excel 工作簿发送到另一个？

开发过程中遇到Excel VBA 试图将数据从 Excel 工作簿发送到另一个的问题如何解决？下面主要结合日常开发的经验，给出你关于Excel VBA 试图将数据从 Excel 工作簿发送到另一个的解决方法建议，希望对你解决Excel VBA 试图将数据从 Excel 工作簿发送到另一个有所启发或帮助；

我一直无法找到一个足够接近我需要的问题，或者我可能没有我想象的那么好用谷歌搜索。

无论如何，我有一个问题，我需要使用 excel 作为数据库，因为我的工作地点无法访问。

这应该起作用的方式是，在用户输入所需数据后，在“ui”工作簿中，它需要从“ui”工作簿中获取用户员工编号，并使用它在“ui”工作簿中找到它们“数据库”工作表上所有员工的列表，然后增加一个字段，表明他们已再次完成此特定任务。然后在第二个工作簿上的另一个工作表上，它需要记录完成的日期，并根据该日期输入用户 ID。

到目前为止，我还没有尝试第二部分的代码，因为我在第一部分遇到了问题。这是我到目前为止所得到的，它在匹配函数中出错

Sub SendToDB()
      Application.Screenupdating = false
    Dim DB As Workbook
    Dim UI As Workbook
    Dim ENo As Long
    Dim copyFrom As Worksheet
    Set copyFrom = Worksheets("checkList")
 
    
    ENo = Range("G45").Value
    Set UI = ThisWorkbook
    Set DB = Workbooks.Open("file LOCATIOn here\database.xLSX",TruE)
    Dim EmCount As Long
    Dim EmRow As Long
    Dim EmCell As Range

    
    
    
    Application.Screenupdating = false
    DB.Worksheets("EMList").Activate
    
       
    EmRow = Application.WorksheetFunction.Match(ENo,Range("AML"),0)
    
    EmCell = Range("G" & EmRow)
    
    EmCount = Application.WorksheetFunction.VLookup(EmENo,7,falsE)
    EmCount = EmCount + 1
    
    EmCell.Value = EmCount
    
    DB.Close True
    Set DB = nothing
    
    Application.Screenupdating = True
End Sub

AML 是数据库电子表格上的命名范围，包含所有员工数据

谢谢

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

大佬总结

以上是大佬教程为你收集整理的Excel VBA 试图将数据从 Excel 工作簿发送到另一个全部内容，希望文章能够帮你解决Excel VBA 试图将数据从 Excel 工作簿发送到另一个所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。