如何在从sql server复制数据时自动调整excel单元格的大小

我正在使用存储过程将sql数据导出到excel中。。 打开excel时，有几个单元格值部分隐藏，我想调整它的大小，包括标题。。 想让标题更粗体。。 请帮我解决这个问题

sql存储过程：

问候,

纳文

保存宏代码时出错：

据我目前所知（尽管我愿意学习一些关于这方面的新知识），完成这项工作的唯一方法是预先格式化excel文件并使用模板

但是，如果宏的使用不是问题，也可以运行此命令：

Option Explicit 

Sub AutoFitAllColumns() 

    Application.ScreenUpdating = False 

    Dim strWorksheetName As String 
    Dim objWorkBook As Worksheet 

    strWorksheetName = ActiveSheet.Name 

    For Each objWorkBook In ActiveWorkbook.Worksheets 
        On Error Resume Next 
        objWorkBook.Activate 
        Cells.EntireColumn.AutoFit 
    Next objWorkBook

    Sheets(strWorksheetName).Select 
    Application.ScreenUpdating = True 

End Sub 

Private Sub Workbook_Open()
    AutoFitAllColumns
End Sub

---

确保代码位于用作模板的excel文件中，然后首先复制该代码。事情是。。如果使用excel打开.csv文件，我不确定会发生什么。也许你可以试试？

我想你是在用csv（从代码中）传输数据。无法格式化csv文件

---

您可以在以后选择的编程语言中将csv文件转换为xlsx或xls。

您不能将格式信息插入到csv文件中，这正是您所需要的。CSV文件只能包含数据。看

您可以尝试Excel可以打开的另一种文件格式，例如使用xml，但这并不容易，而且它需要在过程中生成不平凡的页眉和页脚

---

<>我知道你刚才说你是从调度器运行SP，所以这可能不是你的选择，但是你可以考虑创建一个Excel文件，然后从Excel中运行PRC并把结果插入到一个预先格式化的电子表格中。我不知道是否可以用bcp执行此操作。我正在sql作业计划中运行sp。我粘贴了此代码，并试图保存它。但显示错误。我已将错误的屏幕截图附在顶部。请参见it@navbingo，在保存.csv文件之前，您是否尝试过手动调整列的大小？我还不确定，但可能您会得到提示，因为通常情况下，没有元数据/额外信息保存在最简单的.csv文件中。（当您下次使用VBA代码格式化时收到提示，请单击“是”，然后查看发生了什么。）。。

Option Explicit 

Sub AutoFitAllColumns() 

    Application.ScreenUpdating = False 

    Dim strWorksheetName As String 
    Dim objWorkBook As Worksheet 

    strWorksheetName = ActiveSheet.Name 

    For Each objWorkBook In ActiveWorkbook.Worksheets 
        On Error Resume Next 
        objWorkBook.Activate 
        Cells.EntireColumn.AutoFit 
    Next objWorkBook

    Sheets(strWorksheetName).Select 
    Application.ScreenUpdating = True 

End Sub 

Private Sub Workbook_Open()
    AutoFitAllColumns
End Sub