Question

VB 2008 我想用VB 创建一个EXCEL 文件，并向里面写文本。但有的文本太长，导致显示###。请问如何调整长度

VB 2008 我想用VB 创建一个EXCEL 文件，并向里面写文本。但有的文本太长，导致显示###。请问如何调整excel单元格的长度

Answer 1

鼠标放在那一列的最上面出现不一样的光标后可以随意拉伸 还有上面格式里也可以输入间距大小数值随意的 根据个人需求

追问

个人觉得你的理解能力极为有限。好吧，我就再强调一遍，如何用VB进行控制。

追答

Answer 2

Dim W_Excel As Object '定义Excel对象
Dim WK As Object '定义Workbook对象
W_Excel = CreateObject("Excel.Application") '创建Excel对象
WK = W_Excel.WorkBooks.Add() '向Excel中写入数据
WK.WorkSheets(1).Cells(1,1) = "要写入的数据" '在第一个工作表里的A1中写入"要写入的数据"
WK.WorkSheets(1).Cells.EntireColumn.AutoFit() '自动调整Excel列
REM WorkSheets(1)中括号里的数字表示同一个工作簿里的第几个工作表
W_Excel.Visible = False '设置Excel可见性
W_Excel.DisplayAlerts = False '不弹出对话框
WK.SaveAs("C:\test.xls") '保存Excel
WK.Close() '退出窗体
W_Excel.Quit() '退出应用程序

【WK.WorkSheets(1).Cells.EntireColumn.AutoFit() '自动调整Excel列】这一行就是使列自动适应内容长度

希望对你有所启发和帮助