ex cel 表格复制到CAD 的方法 太复杂了，三下就行了 1、在 EXCEL 中选中表格，按 CTRL+C 2、打开 CAD，按 CTRL+V 3、调整其大小并移动到需要位置即可 ex cel 实现自动生成目录 Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中 Su b mu lu () On Error GoTo Tu ichu Dim i As Integer Dim ShtCou nt As Integer Dim SelectionCell As Range ShtCou nt = Worksheets.Cou nt If ShtCou nt = 0 Or ShtCou nt = 1 Then Ex it Su b Application.ScreenUpdating = False For i = 1 To ShtCou nt If Sheets(i).Name = "目录" Then Sheets("目录").Mov e Before:=Sheets(1) End If Nex t i If Sheets(1).Name <> "目录" Then ShtCou nt = ShtCou nt + 1 Sheets(1).Select Sheets.Add Sheets(1).Name = "目录" End If Sheets("目录").Select Colu mns("B:B").Delete Shift:=x lToLeft Application.Statu sBar = "正在生成目录…………请等待！" For i = 2 To ShtCou nt Activ eSheet.Hy perlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", Su bAddress:= _ "‟" & Sheets(i).Name & "‟!R1C1", TextToDisplay:=Sheets(i).Name Nex t Sheets("目录").Select Colu mns("B:B").Au toFit Cells(1, 2) = "目录" Set SelectionCell = Worksheets("目录").Range("B1") With SelectionCell .HorizontalAlignment = xlDistributed .VerticalAlignment = xlCenter .AddIndent = True .Font.Bold = True .Interior.ColorIndex = 34 End With Application.StatusBar = False Application.ScreenUpdating = True Tuichu: End Sub 直接将程序复制过去，运行--用户子过程/用户窗体---搞定 我修正了楼主的程序，经过调试可行，不会出现“引用无效” Sub mulu() On Error GoTo Tuichu Dim i As Integer Dim ShtCount As Integer Dim SelectionCell As Range ShtCount = Worksheets.Count If ShtCount = 0 Or ShtCount = 1 Then Exit Sub Application.ScreenUpdating = False For i = 1 To ShtCount If Sheets(i).Name = "目录" Then Sheets("目录").Move Before:=Sheets(1) End If Next i If...
