如何用SQL语句修改EXCEL字段名

lufee99

我想在VBA中用SQL语句对字段名进行修改，比如说：Name字段中ZhangShan修改成ZS
请教该如何写,alter？

xd3210

数据在sheet中的话，直接修改表中相应名称就可以

zhaogang1960

变通一下，先查找字段名ZhangShan的位置，再把它更新为ZS：

1. Sub Macro1()
   
2.     Dim cnn As Object
   
3.     Dim rs As Object
   
4.     Dim SQL$, ad$
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\工作簿1.xls"
   
7.     Set rs = cnn.Execute("[Sheet1$]")
   
8.     For i = 0 To rs.Fields.Count - 1
   
9.         If rs.Fields(i).Name = "ZhangShan" Then
   
10.             ad = Cells(1, i + 1).Address(0, 0)
    
11.             SQL = "update [Excel 8.0;hdr=no;Database=" & ThisWorkbook.Path & "\工作簿1.xls].[Sheet1$" & ad & ":" & ad & "] set f1='ZS'"
    
12.             cnn.Execute (SQL)
    
13.             Exit For
    
14.         End If
    
15.     Next
    
16.     rs.Close
    
17.     Set rs = Nothing
    
18.     cnn.Close
    
19.     Set cnn = Nothing
    
20.     MsgBox "ok"
    
21. End Sub
    
22. 
    

复制代码

zhaogang1960

下面附件请参考：
新建文件夹.rar (11.56 KB, 下载次数: 57)

2013-8-19 18:46 上传

点击文件名下载附件

lufee99

zhaogang1960 发表于 2013-8-19 18:45
变通一下，先查找字段名ZhangShan的位置，再把它更新为ZS：

但是一次性只能替换一个，如果有多个，就替换不了了

zhaogang1960

lufee99 发表于 2013-8-20 09:41
但是一次性只能替换一个，如果有多个，就替换不了了

加个循环即可：

1. Sub Macro1()
   
2.     Dim cnn As Object
   
3.     Dim rs As Object
   
4.     Dim SQL$, ad$, d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     d("ZhangShan") = "ZS"
   
7.     d("ZhangShanShan") = "ZSS"
   
8.     Set cnn = CreateObject("adodb.connection")
   
9.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\工作簿1.xls"
   
10.     Set rs = cnn.Execute("[Sheet1$]")
    
11.     For i = 0 To rs.Fields.Count - 1
    
12.         If d.Exists(rs.Fields(i).Name) Then
    
13.             ad = Cells(1, i + 1).Address(0, 0)
    
14.             SQL = "update [Excel 8.0;hdr=no;Database=" & ThisWorkbook.Path & "\工作簿1.xls].[Sheet1$" & ad & ":" & ad & "] set f1='" & d(rs.Fields(i).Name) & "'"
    
15.             cnn.Execute (SQL)
    
16.         End If
    
17.     Next
    
18.     rs.Close
    
19.     Set rs = Nothing
    
20.     cnn.Close
    
21.     Set cnn = Nothing
    
22.     MsgBox "ok"
    
23. End Sub
    
24. 
    

复制代码

zhaogang1960

假设有2个字段需要更名：
"ZhangShan"—— "ZS"
"ZhangShanShan"——"ZSS"
请看下面附件
新建文件夹.rar (12.5 KB, 下载次数: 62)

2013-8-20 11:07 上传

点击文件名下载附件

lufee99

zhaogang1960 发表于 2013-8-20 11:07
假设有2个字段需要更名：
"ZhangShan"—— "ZS"
"ZhangShanShan"——"ZSS"

多谢，借鉴这个思路！

LMY123

SQL语句修改字段名