问题描述
PrivateSubCommand6_Click()DimS()AsString,FileNameAsString,iAsInteger,jAsIntegerDimxlAppDimxlBookDimxlSheetFileName=App.Path&"F:测试.xlsx"'程序所在目录下的文件,请修改SetxlApp=CreateObject("Excel.Application")'创建EXCEL对象xlApp.DisplayAlerts=False'不显示对话框SetxlBook=xlApp.Workbooks.Open("F:测试.xlsx")'打开已经存在的EXCEL工件簿文件xlApp.Visible=True'设置EXCEL对象可见SetxlSheet=xlBook.Worksheets("表二")'设置活动工作表xlSheet.Cells(3,2)=""'清除单元格内容xlSheet.Cells(3,2)=“证明”'修改单元格内容xlSheet.PrintOut'打印工作表xlBook.SaveAsFileName=App.Path&"F:测试.xlsx"'保存工作表,结束时一定别忘了保存'xlBook.Close(True)'关闭工作簿这里的True表示退出时保存修改'xlApp.quit'结束EXCEL对象'SetxlApp=Nothing'释放xlApp对象EndSub
QQ：332834803有适当的奖励快帮忙大师们
解决方案
解决方案二：
DimstrFilePathAsString=""'Excel操作用対象DimxlAppExcelFileAsMicrosoft.Office.Interop.Excel.Application=NothingDimxlBookAsExcel.Workbook=NothingDimxlSheetAsExcel.Worksheet=NothingTry'初期化xlAppExcelFile=NewMicrosoft.Office.Interop.Excel.ApplicationxlBook=xlAppExcelFile.Workbooks.Open(strFilePath)'表示xlAppExcelFile.Visible=True'警告xlAppExcelFile.DisplayAlerts=FalsexlSheet=CType(xlBook.Sheets("表二"),Excel.Worksheet)xlSheet.Cells(3,2)=""'ValuexlSheet.PrintOut()xlBook.SaveAs("FileName")CatchexAsException'ExceptionFinallyxlSheet=NothingxlBook.Close()xlBook=NothingxlAppExcelFile.Quit()xlAppExcelFile=NothingEndTry
解决方案三：
vb6.0跟vb.net还是有些差别的就如vba里的宏可以直接用在vb6.0上但不能直接用在vb.net上
解决方案四：
直接在网上搜新写吧
解决方案五：
vb6使用的是com操作，.net不一样，1楼正确
解决方案六：
ImportsSystemImportsSystem.CollectionsImportsSystem.Collections.SpecializedImportsSystem.DataImportsSystem.Data.OleDbImportsSystem.ConfigurationPublicClassOleHelperPublicSharedReadOnlyPropertyConnectionString()AsStringGetReturn"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+Common.ExcelFile+";ExtendedProperties='Excel8.0;HDR=NO;IMEX=1';"EndGetEndPropertyPublicSharedFunctionExecuteSql(ByValSqlAsString)AsIntegerUsingconnectionAsNewOleDbConnection(connectionString)UsingcmdAsNewOleDbCommand(Sql,connection)Tryconnection.Open()DimrowsAsInteger=cmd.ExecuteNonQuery()ReturnrowsCatchexAsSystem.Data.OleDb.OleDbExceptionconnection.Close()ThrowNewException(ex.Message)EndTryEndUsingEndUsingEndFunctionPublicSharedFunctionGetSingle(ByValSqlAsString)AsObjectUsingconnectionAsNewOleDbConnection(connectionString)UsingcmdAsNewOleDbCommand(Sql,connection)Tryconnection.Open()DimrowsAsInteger=cmd.ExecuteScalar()DimobjAsObject=cmd.ExecuteScalar()If((Object.Equals(obj,Nothing))And(Object.Equals(obj,System.DBNull.Value)))ThenReturnNothingElseReturnobjEndIfCatchexAsSystem.Data.OleDb.OleDbExceptionconnection.Close()ThrowNewException(ex.Message)EndTryEndUsingEndUsingEndFunctionPublicSharedFunctionExecuteReader(ByValSqlAsString)AsOleDbDataReaderDimconnectionAsNewOleDbConnection(Sql)DimcmdAsNewOleDbCommand(Sql,connection)Tryconnection.Open()DimmyReaderAsOleDbDataReader=cmd.ExecuteReader()ReturnmyReaderCatchexAsSystem.Data.OleDb.OleDbExceptionThrowNewException(ex.Message)EndTryEndFunctionPublicSharedFunctionQuery(ByValSqlAsString)AsDataSetDimConnectionStringAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+Common.ExcelFile+";ExtendedProperties='Excel8.0;HDR=NO;IMEX=1';"UsingconnectionAsNewOleDbConnection(ConnectionString)DimdsAsNewDataSetTryconnection.Open()DimcommandAsOleDbDataAdapter=NewOleDbDataAdapter(Sql,connection)command.Fill(ds,"ds")CatchexAsSystem.Data.OleDb.OleDbExceptionThrowNewException(ex.Message)EndTryReturndsEndUsingEndFunctionEndClass
OleHelper操作类，供参考！