vb读取excel定义数据(vb调取excel表格数据)

1. vb调取excel表格数据

Set xlApp = CreateObject("Excel.Application") '创建excel应用程序,打开excel2003 Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件 Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 for n=1 to 行数 for m=1 to 例数 msgbox xlSheet.Cells.Item(n, m) '注意：我只是告诉你一个循环把你要的内容都读出来，你要拿我的程序去运行会弹死你的 next next

2. vb储存数据

1、保存按钮，然后选择你要保存的路径，一共是保存两次，第一个是保存窗体，第二个是保存工程，然后点NO 2、文件→保存工程，然后选择你要保存的路径，一共是保存两次，第一个是保存窗体，第二个是保存工程，然后点NO

3. vb表格录入数据

VB中在TEXT文本框输入文本应该不是问题，文本框获得焦点，就可直接在文本框输入文本。估计问的是如何输入文本文件到文本框。使用Open语句打开文本文件，逐行读入文本文件。

4. vb读写excel文件

返回应用程序完整路径

Application.Path

返回当前工作薄的路径

ThisWorkbook.Path

返回当前默认文件路径：

Application.DefaultFilePath

Application.ActiveWorkbook.Path 只返回路径

Application.ActiveWorkbook.FullName 返回路径及工作簿文件名

Application.ActiveWorkbook.Name 返回工作簿文件名

5. vb查询excel数据

Dim excel As ObjectSet excel = CreateObject("excel.application") '设定 excel API'--------------这上面可不看 照抄excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启excel.Visible = True 'excel 显示 or 隐藏 (True of Falseexcel.cells(1,2)="测试"text1 = excel.cells(1,2) 'text1 读取excel.ActiveWorkbook.Save 'excel 存档excel.quit 'excel 关闭

6. vb将数据写入excel

打开excel2003，其它版本的软件，比如EXCEL2013，方法一样。(具体步骤：“开始”-“程序”-“microsoftoffice2003”-“excel2003";或者如果桌面上有快捷方式的话直接双击打开。点击“数据”菜单，选择“选择外部数据”，打开“导入数据”对话框。

7. vb 保存数据

选择MicrosoftCommonDialogControl部件，并创建一个文本框。OnErrorResumeNextDimsFileAsStringWithCommonDialog1.DialogTitle=”保存”.Filter=”文本文档(*.txt)|*.txt”.ShowSaveIfLen(.FileName)=0ThenExitSubsFile=.FileNameEndWithText1.SaveFilesFile打开时需要用LoadFile，如果用Input则会显示乱码。

8. vb保存数据到指定的excel

1、打开含有宏的工作薄，点“工具/宏(M)…”，选中你的宏，点“编辑”，这样就调出了VB编辑器界面。

2、点“文件/导出文件”，在“文件名”框中输入一个文件名（也可用默认的文件名），注意扩展名为“.bas”，点“保存”。

3、将扩展名为“.bas”的文件拷贝到另一台电脑，打开EXCEL，点“工具/宏/VB编辑器”，调出VB编辑器界面，点“文件/导入文件”，找到你拷贝过来的文件，点“打开”，退出VB编辑器，你的宏已经复制过来了

9. vb读取excel单元格数据

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，然后打开Excel文件读数据Dim scxls As Excel.ApplicationDim scbook As Excel.WorkbookDim scsheet As Excel.Worksheet‘Set scxls = CreateObject("excel.application")‘Set scbook = scxls.Workbooks.AddSet scbook = scxls.Workbooks.open("c:\1.xls"

)Set scsheet = scbook.Worksheets(1)‘scsheet.Cells(1, 2) = "1111" ’写入数据a=scsheet.Cells(1, 2) '读取数据Set scbook = NothingSet scxls = Nothing‘scxls.Visible = True ’显示Excle数据较多，且有规律可循时，请使用循环语句

顶一下

(0)

0%

踩一下

(0)

0%