求VBA从表1标题列中内容复制到表2指定列

bnblatale · 发表于 2023-7-22 16:33

cyq4896 · 发表于 2023-7-22 16:51

参与一下..

gwjkkkkk · 发表于 2023-7-22 18:04

参与一下。。。

bnblatale · 发表于 2023-7-22 22:01

gwjkkkkk 发表于 2023-7-22 18:04
参与一下。。。

如果表1列不是固定顺序，能想办法实现吗

gwjkkkkk · 发表于 2023-7-22 22:07

bnblatale 发表于 2023-7-22 22:01
如果表1列不是固定顺序，能想办法实现吗

需要看具体情况，一般情况下通过字典可以定位，但字段需要统一。。。

shiruiqiang · 发表于 2023-7-22 22:10

bnblatale 发表于 2023-7-22 22:01
如果表1列不是固定顺序，能想办法实现吗

主要唯一关键字就可以操作。
顺手骗点分

bnblatale · 发表于 2023-7-22 22:10

gwjkkkkk 发表于 2023-7-22 22:07
需要看具体情况，一般情况下通过字典可以定位，但字段需要统一。。。

新手不会，能帮下吗，感谢！！！

limonet · 发表于 2023-7-22 22:29

用到：SQL与NULL，自己修改改字段

limonet · 发表于 2023-7-22 22:30

Sub limonet()
Dim Cn As Object, StrSQL$
Set Cn = CreateObject("adodb.connection")
Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
StrSQL = "select 业务员,客户,Null,客户编码,销售金额,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,销售金额,折后毛利,单面积提成 from [业务毛利表$]"
Sheet2.Range("C4").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

shiruiqiang · 发表于 2023-7-22 22:44

表1列不固定，根据关键字取值

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

[求助] 求VBA从表1标题列中内容复制到表2指定列

评分

评分

评分

评分