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

bnblatale · 发表于 2023-7-23 00:00

limonet 发表于 2023-7-22 22:29
用到：SQL与NULL，自己修改改字段

其他列有数据有公式数据，能不刷新吗

bnblatale · 发表于 2023-7-23 07:47

shiruiqiang 发表于 2023-7-22 22:44
表1列不固定，根据关键字取值

其他列有公式和数据，一点就清空了，删了ClearContents行后数据还在，但公式变数字了，能解决吗

shiruiqiang · 发表于 2023-7-23 07:53

试试后面加个单词

bnblatale · 发表于 2023-7-23 08:08

shiruiqiang 发表于 2023-7-23 07:53
试试后面加个单词

还是不行，能发下附件吗

shiruiqiang · 发表于 2023-7-23 08:23

本帖最后由 shiruiqiang 于 2023-7-23 08:24 编辑

bnblatale 发表于 2023-7-23 08:08
还是不行，能发下附件吗

不清除，加单词

shiruiqiang · 发表于 2023-7-23 08:28

本帖最后由 shiruiqiang 于 2023-7-23 08:29 编辑

2、取消公式，直接写入代码。否则数据量大，公式卡死

bnblatale · 发表于 2023-7-23 09:50

shiruiqiang 发表于 2023-7-23 08:28
2、取消公式，直接写入代码。否则数据量大，公式卡死

可以了，谢谢！！

limonet · 发表于 2023-7-23 23:10

bnblatale 发表于 2023-7-23 00:00
其他列有数据有公式数据，能不刷新吗

那用分成3表

limonet · 发表于 2023-7-23 23:12

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 = " from [业务毛利表$]"
Sheet2.Range("C4").CopyFromRecordset Cn.Execute("select 业务员,客户" & StrSQL)
Sheet2.Range("f4").CopyFromRecordset Cn.Execute("select 客户编码,销售金额" & StrSQL)
Sheet2.Range("x4").CopyFromRecordset Cn.Execute("select 销售金额,折后毛利,单面积提成" & StrSQL)
End Sub

bnblatale · 发表于 2023-7-25 08:18

本帖最后由 bnblatale 于 2023-7-25 08:34 编辑

limonet 发表于 2023-7-23 23:12
Sub limonet()
Dim Cn As Object, StrSQL$
Set Cn = CreateObject("adodb.connection")

例如表1数据删除了一部分，再点按钮，不会重新查找！能实现吗，小白在此感谢！

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

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

评分