VB如何生成EXCEL表格并保存？
初学者，对数据库很迷惑，不知道怎么实现这样的功能，谁能为我引路，带我入门数据库的应用，我希望将我做好的一些经过计算的text文本重新排列生产到EXCEL表格里并保存
具体点举个例子，带我入门
追答要写一段程序那就复杂了，我建议你弄本vb书先看看，学习一些基本知识。也能方便交流，否则我说程序你又不懂了，没有办法交流的。
能逐句解释一下吗
搜了半天都不知道哪个是我要的结果，没看懂
追答给你一个
Private Sub Command1_Click()
'这是一个假设excel文件Book1.xls存放在C盘根目录下的例子，例子假设使用的工作区域为：A1: J20
'首先对每个单元格设置你的要求，然后在A2里输入比较多的文字，以看效果。
Set xlsApp = Excel.Application
Dim n As Integer
Dim i As Integer
With xlsApp
.Visible = False
.Workbooks.Open (App.Path & "\book1.xls")
n = Workbooks.Range("A1:J20").Cells.Count '获取区域内总的单元格数
For i = 1 To n '逐个对单元格设置不换行自动缩小字体适应宽度
Workbooks.Range("A1:J20").Cells(i).Select
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.ReadingOrder = xlContext
End With
Next i
.Range("A2").Value = "中华人民共和国成立于一九四九年十月一日" '在A2单元格写入比较多的文字
End With
xlsApp.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。
xlsApp.Quit
Set xlsApp = Nothing
End Sub
VB 如何生成EXCEL表格?谢谢了
1、首先，我们需要点击文件菜单栏按钮。2、然后，我们点击生成EXE按钮。3、接下来，我们点击保存路径。4、然后，我们输入我们想要保存的文件名。5、最后，我们点击确定按钮。6、然后，我们便可以看到，在桌面生成了Excel表格了。
vb 关于生成excel表格
1、首先，我们需要点击文件菜单栏按钮。2、然后，我们点击生成EXE按钮。3、接下来，我们点击保存路径。4、然后，我们输入我们想要保存的文件名。5、最后，我们点击确定按钮。6、然后，我们便可以看到，在桌面生成了Excel表格了。
VB代码 如何新建保存EXCEL 文件
1、打开excel软件，先点击“开发工具”，再点击“查看代码”，打开VBA窗口。2、在新打开的窗体的代码编辑区复制粘贴以下代码，并点击绿色小三角按钮。代码：Sub 创建新文件()Dim excelApp, excelWB As Object Dim savePath, saveName As String Set excelApp = CreateObject("Excel.Application")Set ex...
如何在VB中创建excel,并将其编辑后保存
zsbexcel.DisplayAlerts=False zsbexcel.Quit zsbexcel.DisplayAlerts=True Setzsbexcel=Nothing
VB代码 如何新建保存EXCEL 文件
Set xl = New Excel.application Set xlwbook = xl.Workbooks.Add Set xlsheet = xlwbook.Sheets.Item(1)xl.ActiveWorkBook.Save ("c:\\测试.xls") \/\/保存
用vb怎么做excel表格
a. 用函数公式就非常简单在C2单元格输入=SUMIF(A2:A6,">3",B2:B6)就能行到结果42 b. 如果用VBA就复杂多了，代码如下：set sh = ActivateSheetsum = 0 # 保存求和的结果For i = 2 to 6 If sh.cells(i,1)>3 Then sum = sum + sh.cells(i,2) End ifNext i 问题2：条...
vb如何保存到excel
'xlSheet.PrintOut '打印工作表 xlBook.SaveAs FileName:="c:\\1.xls" '保存工作表,结束时一定别忘了保存 xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改 xlApp.quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 End Sub ...
怎么才能将VB程序的运算结果保存到EXCEL?这帮人网上的答案千奇百怪...
'打开文件 Set excel_Book = excel_App.Workbooks.Open("C:\\1.XLS") '工作簿实例 Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例 excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!"excel_sheet.Range("A1").Value = 100 '设置单元...
vb中excel的路径如何保存vb保存文件到指定路径
'向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格 exlApp.Sheets(1).Cells(1, 1) = \\"11\\"exlApp.Sheets(1).Cells(1, 2) = \\"12\\"exlApp.Sheets(1).Cells(2, 1) = \\"21\\"exlApp.DisplayAlerts = False '不显示警告信息 exlBook.Close True '先保存...
...点击按钮可以新建一个excel表并直接保存到当前路径
测试下 Private Sub CommandButton1_Click()Application.DisplayAlerts = False Dim oWB As Workbook Set oWB = Application.Workbooks.Add oWB.Worksheets(1).Range("a1") = 100 oWB.SaveAs ThisWorkbook.Path & "\\abc.xls"Application.DisplayAlerts = True End Sub ...
