excel表格复制到CAD的方法.pdf

文档介绍：:.
excel表格复制到CAD的方法
太复杂了,三下就行了
1、在EXCEL中选中表格,按CTRL+C
2、打开Cexcel表格复制到CAD的方法
太复杂了,三下就行了
1、在EXCEL中选中表格,按CTRL+C
2、打开CAD,按CTRL+V
3、调整其大小并移动到需要位置即可
excel实现自动生成目录
Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中
Submulu()
OnErrorGoToTuichu
DimiAsInteger
DimShtCountAsInteger
DimSelectionCellAsRange
ShtCount=
IfShtCount=0OrShtCount=1ThenExitSub
=False
Fori=1ToShtCount
IfSheets(i).Name="目录"Then
Sheets("目录").MoveBefore:=Sheets(1)
EndIf
Nexti
IfSheets(1).Name<>"目录"Then
ShtCount=ShtCount+1
Sheets(1).Select

Sheets(1).Name="目录"
EndIf
Sheets("目录").Select
Columns("B:B").DeleteShift:=xlToLeft
="正在生成目录…………请等待!"
Fori=2ToShtCount
:=Worksheets("目录").Cells(i,2),Address:="",SubAddress:=
_
"‟"&Sheets(i).Name&"‟!R1C1",TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFitCells(1,2)="目录"
SetSelectionCell=Worksheets("目录").Range("B1")
WithSelectionCell
.HorizontalAlignment=xlDistributed
.VerticalAlignment=xlCenter
.AddIndent=True
.=True
.=34
EndWith
=False
=True
Tuichu:
EndSub
直接将程序复制过去,运行--用户子过程/用户窗体---搞定
我修正了楼主的程序,经过调试可行,不会出现“引用无效”
Submulu()
OnErrorGoToTuichu
DimiAsInteger
DimShtCountAsInteger
DimSelectionCellAsRange
ShtCount=
IfShtCount=0OrShtCount=1ThenExitSub
=False
Fori=1ToShtCount
IfSheets(i).Name="目录"Then
Sheets("目录").MoveBefore:=Sheets(1)
EndIf
Nexti
IfSheets(1).Name<>"目录"Then
ShtCount=ShtCount+1
Sheets(1).Select

Sheets(1).Name="目录"
EndIf
Sheets("目录").Select
Columns("B:B").DeleteShift:=xlToLeft
="正在生成目录…………请等待!"
Fori=2ToShtCount
:=Worksheets("目录").Cells(i,2),Address:="",SubAddress:=
_
"‟"&Sheets(i).Name&"‟!R1C1",TextToDisplay:=Sheets(i).NameNext