mayuezxl 发表于 2005-8-31 19:41:00

如何用vb控制excel文件？

请各位帮帮忙，如何从一个excel文件中读出数据，然后再用vb创建一个excel文件，最后把从先前读出的数据写入到新建的excel文件中？谢谢！急……

cobalt 发表于 2005-9-4 20:31:00

<P>首先需要在EXCEL中引用Microsoft Excel XX.0 Object Library。</P>
<P>然后在模块文件中：<BR>&nbsp;&nbsp;&nbsp; Option Explicit</P>
<P>&nbsp;&nbsp;&nbsp; Public ExcelApp As Excel.Application<BR>&nbsp;&nbsp;&nbsp; Public ExcelWorkBook As Excel.Workbook<BR>&nbsp;&nbsp;&nbsp; Public ExcelWorkSheet&nbsp; As Excel.Worksheet</P>
<P>最后在Form文件中：</P>
<P>&nbsp;&nbsp;&nbsp; '连接至Excel应用程序<BR>&nbsp;&nbsp;&nbsp; Call Excel_Appliaction(ExcelApp)<BR>&nbsp;&nbsp;&nbsp; AppActivate "Microsoft Excel"<BR>&nbsp;&nbsp;&nbsp; '------------------------------------------------------------------------<BR>&nbsp;&nbsp;&nbsp; '创建一个新的Excel工作簿文档对象<BR>&nbsp;&nbsp;&nbsp; Set ExcelWorkBook = ExcelApp.Workbooks.Add()<BR>&nbsp;&nbsp;&nbsp; '创建一个新的Excel表单对象<BR>&nbsp;&nbsp;&nbsp; Set ExcelWorkSheet = ExcelWorkBook.Sheets.Add()<BR>&nbsp;&nbsp;&nbsp; ExcelWorkSheet.Name = "VBA"<BR>&nbsp;&nbsp;&nbsp; '下面将数据写入到Excel中<BR>&nbsp;&nbsp;&nbsp; ExcelWorkSheet.Cells(1, 2) = "X": ExcelWorkSheet.Cells(1, 3) = "Y": ExcelWorkSheet.Cells(1, 4) = "Z"<BR>&nbsp;&nbsp;&nbsp; ExcelWorkSheet.Cells(2, 1) = "MinPoint": ExcelWorkSheet.Cells(3, 1) = "MaxPoint"<BR>&nbsp;&nbsp;&nbsp; ExcelWorkSheet.Cells(2, 2) = MinPoint(0): ExcelWorkSheet.Cells(2, 3) = MinPoint(1): ExcelWorkSheet.Cells(2, 4) = MinPoint(2)<BR>&nbsp;&nbsp;&nbsp; ExcelWorkSheet.Cells(3, 2) = MaxPoint(0): ExcelWorkSheet.Cells(3, 3) = MaxPoint(1): ExcelWorkSheet.Cells(3, 4) = MaxPoint(2)<BR>&nbsp;&nbsp;&nbsp; '删除以前的重名Excel文档<BR>&nbsp;&nbsp;&nbsp; Dim FSO As Object, ExcelFileName As String<BR>&nbsp;&nbsp;&nbsp; ExcelFileName = App.Path + "\" + "Drawing_VBA.xls"<BR>&nbsp;&nbsp;&nbsp; Set FSO = CreateObject("Scripting.FileSystemObject")<BR>&nbsp;&nbsp;&nbsp; If FSO.FileExists(ExcelFileName) = True Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FSO.DeleteFile ExcelFileName<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; '下面保存Excel文档<BR>&nbsp;&nbsp;&nbsp; ExcelWorkBook.SaveAs ExcelFileName<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; '释放Excel的对象<BR>&nbsp;&nbsp;&nbsp; Set ExcelWorkSheet = Nothing<BR>&nbsp;&nbsp;&nbsp; Set ExcelWorkBook = Nothing<BR>&nbsp;&nbsp;&nbsp; Set ExcelApp = Nothing<BR></P>

mayuezxl 发表于 2005-9-5 10:26:00

<P>楼上的，谢谢你了。</P>
<P>现在我要把一个文件中的数据写入到另一个文件中，然后把写入数据的文件重新命名，不知道该如何做。还有，用vb启动excel后，怎么样使vb窗口位于excel上？</P>
页: [1]
查看完整版本: 如何用vb控制excel文件？