Excel实践操作

在excel生成脚本

1、Teradata数据库的表字段，生成导数脚本：
=CONCAT(IF(B2<>B1,CONCAT(“.begin export;
.export outfile “,A2,”_”,B2,“.dat format text mode record;
select “),””)
,IF(B2=B1,“, “,””),CONCAT(“cast(”,C2," as “,I2,”)“)
,IF(B2=B3,”,cast(‘|;’ as char(2))“,”“)
,IF(AND(B2=B1,B2<>B3),CONCAT(”
from “,A2,”.“,B2,” sample 1000;
.end export;
“),”"))

2、判断字段类型，输出导出类型
=IF(OR(LEFT(G2,4)=“char”,LEFT(G2,7)=“varchar”)
,CONCAT(“char(”,IF(E2<=50,100,IF(E2<500,E2*2,E2)),“)”),“char(100)”)

生成sheet页的表头

在MySql数据库中，执行以下：
create database db0627;
use db0627;
create table test(tab_name varchar(100),col_name varchar(80));

–把表字段拼接成一个字符串。
select tab_name,group_concat(col_name SEPARATOR ’ ') from test group by tab_name;
select count(1) from test;
–插入数据
insert into test values
(‘Tab_name1’,‘字段1’),
(‘Tab_name1’,‘字段2’)
;

宏处理

1、'按表目录，循环创建以表命名的Sheet，并把表字段复制到同名Sheet页。
Sub Macro0620()
Sheet页。
Dim tab_name As String
Dim i As Integer
For i = 1 To 82
tab_name = Sheets(“Sheet1”).Range(“A” & i) '单元格值Range(“A” & i)
Sheets(“Sheet1”).Activate
Range(Cells(i, 2), Cells(i, 24)).Select '2为B列24为BK列，Range(Cells(i,2),Cells(i,24))
Selection.Copy
Sheets.Add After:=Sheets(“Sheet1”), Count:=1 '创建新Sheet页
ActiveSheet.Name = tab_name
Sheets(tab_name).Activate
ActiveSheet.Paste
Next
End Sub

2、给每个表设置超链接，目的是同名的Sheet页；并在页面放上返回超链接，目的是对应表名。
Sub Macro1()
’ 超链接
Dim i As Integer
For i = 2 To 83
Sheets(“SUM表目录”).Activate
tab_name = Sheets(“SUM表目录”).Range(“A” & i)
Range(“A” & i).Select
Selection.Hyperlinks.Add Anchor:=Range(“A” & i), Address:=“”, SubAddress:=“” & tab_name & “!A1”, TextToDisplay:=tab_name
'给返回超链接
Sheets(tab_name).Activate
Range(“A1”).Select
Selection.Hyperlinks.Add Anchor:=Range(“A1”), Address:=“”, SubAddress:=“SUM表目录!A” & i, TextToDisplay:=“返回”
Next
End Sub