excel - 粘贴到 Excel ActiveX 组合框
问题描述
我正在尝试将数据从一个工作簿复制到另一个作为调查构建的工作簿中。
在调查表中,我们将 ActiveX 控件用于组合框和复选框。我留下了两种我尝试过(但失败了)的方法样本。
Sub TransferData()
Set Source = Workbooks.Open("FromHere.xlsm")
Set qstnr = Workbooks.Open("ToHere.xlsx")
' Banner Form Classification
Source.Activate
Cells(8, 2).Copy
qstnr.Activate
Set Cbo_Classification = qstnr.OLEObjects("Cbo_Classification")
With Cbo_Classification.Object
.Text = "Not sure what to do here"
End With
' Reporting Organization
Source.Activate
Cells(9, 2).Copy
qstnr.Activate
'ActiveSheet.OLEObjects("Cbo_RptOrg").PasteSpecial Paste:=xlPasteValues
End Sub
编辑:当使用下面的副本在同一个工作簿中工作时,我已经能够获得要粘贴的对象。我不明白为什么在文档之外工作时它不成功。
Sub TransferObjects()
Dim wbk As Workbook: Set wbk = Workbooks.Open("CopyFrom.xlsm")
Dim tmplt As Workbook: Set tmplt = Workbooks.Open("CopyTo.xlsx")
Dim qstnr As Worksheet
Set qstnr = tmplt.Sheets("Sheet1")
qstnr.OLEObjects("Cbo_RptOrg").Object.Value = Range("K12").Value
End Sub
解决方案
' Reporting Organization
Source.Activate
Dim Cbo_RptOrg As Variant
Cbo_RptOrg = Cells(2, 9).Value
qstnr.OLEObjects("Cbo_RptOrg").Object.Value = Cbo_RptOrg
这最终奏效了。按照建议使用变量。
推荐阅读
- java - 无法为 org.gradle.api.publication.maven.internal.deployer.DefaultGroovyMavenDeployer 类型的对象获取未知属性“GROUP”
- c# - 如何用 ASP Core 运行爬虫,服务交互和生命周期问题
- ios - 使用“flutter attach”命令附加到应用程序时如何触发断点?
- android - 用户列表在android中为空
- database - 在不同的数据库版本之间导出和导入 (Oracle)
- python - 类的未解析属性引用“对象”
- amazon-web-services - 尝试使用 moto 模拟 s3 时出现 NoSuchBucket 错误
- c# - 在没有文件预览的情况下打印 pdf 文件
- c# - 如何在 C# 中将 wpf 项目包含到 Windows 窗体项目中
- html - 仅在单击标签时执行 perl 代码