小编use*_*778的帖子

SQL Server Mgmt Studio 2005:有人可以帮助我了解如何查看和打印表之间的关系,同时显示表中的列.我很多年前就这样做了,并且已经挣扎了好几天再做一次.

下面的脚本循环创建选项卡并命名选项卡,然后它将选项卡名称放在单元格B3中.它一直工作正常但现在给出了捕获所有运行时错误1004.在我的脚本底部它重命名选项卡.这是错误发生的地方.它正在创建选项卡但无法重命名.任何人都可以建议另一种方法来重命名此脚本中的选项卡.错误在表格(名称)上.选择.

Public Sub CreateTabs()
  Sheets("TABlist").Select
  ' Determine how many Names are on Data sheet
  FinalRow = Range("A65000").End(xlUp).Row
  ' Loop through each Name on the data sheet
  For x = 1 To FinalRow
    LastSheet = Sheets.Count
    Sheets("TABlist").Select
    Name = Range("A" & x).Value
    ' Make a copy of FocusAreas and move to end
    Sheets("TABshell").Copy After:=Sheets(LastSheet)
    ' rename the sheet and put name in Cell B2
    Sheets(LastSheet + 1).Name = Name
    Sheets(Name).Select
    Range("B3").Value = Name
  Next x 
End Sub