vb数据库导出导入办公软件excel文件
1. vb导出到excel
dim ii as string '定义一个变量为ii ii=1'设定ii的值为1 Dim ex1 As Object Dim exwbook As Object Dim exsheet As Object Set ex1 = CreateObject("excel.application"
) Set exwbook = Nothing Set exsheet = Nothing Set exwbook = ex1.Workbooks().Add Set exsheet = exwbook.Worksheets("sheet1") ex1.Visible = True '以上代码是运行excel并新建一个文档 ex1.Range("a" & ii).Value=textbox.text '把textbox中的数据逐条记录到EXCEL中的A列,一条记录一行 ii=val(ii)+1'每记录一条记录,excel行数+1当然你直接把上面的代码放到timer控件里是不行的,要灵活运用啊
2. vb导出到excel由于其他应用程序忙
首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，
然后打开Excel文件读数据
Dim scxls As Excel.Application頭條萊垍
Dim scbook As Excel.Workbook
Dim scsheet As Excel.Worksheet
‘Set scxls = CreateObject("excel.application")
‘Set scbook = scxls.Workbooks.Add
Set scbook = scxls.Workbooks.open("c:\1.xls")頭條萊垍
Set scsheet = scbook.Worksheets(1)
‘scsheet.Cells(1, 2) = "1111" ’写入数据條萊垍頭
a=scsheet.Cells(1, 2) '读取数据垍頭條萊
Set scbook = Nothing垍頭條萊
Set scxls = Nothing
‘scxls.Visible = True ’显示Excle
数据较多，且有规律可循时，请使用循环语句頭條萊垍
3. vb怎么将数据导入到excel中
Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = "Open files"CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueIf Len(CommonDialog1.FileName)
4. vb导出excel格式保存
Fori=1ToMe.ListView1.ListItems.Count-1xl.Range("A"&i+1).Value=Me.ListView1.ListItems(i).Textxl.Range("B"&i+1).Value=Me.ListView1.ListItems(i).SubItems(1)xl.Range("C"&i+1).Value=Me.ListView1.ListItems(i).SubItems(2)xl.Range("D"&i+1).Value=Me.ListView1.ListItems(i).SubItems(3)xl.Range("E"&i+1).Value=Me.ListView1.ListItems(i).SubItems(4)xl.Range("F"&i+1).Value=Me.ListView1.ListItems(i).SubItems(5)xl.Range("G"&i+1).Value=Me.ListView1.ListItems(i).SubItems(6)xl.Range("H"&i+1).Value=FormatStr(Me.ListView1.ListItems(i).SubItems(7))Nextixl.Visible=True
5. vb导出到excel的方法
Excel里按Alt+F11打开Vb编辑器，在里面可以建一个窗体，放入文本框，通过程序来赋值，如sheets("sheet1").range("a1").value=11。
6. vb导出到excel慢
这里有个方法可以把填充listview的datatable导出成csv文件，速度较快
publicstaticvoidsaveasexcel(datatabledt1)垍頭條萊
{
savefiledialogsfd=newsavefiledialog();條萊垍頭
sfd.filter="导出文件(*.csv)|*.csv";
sfd.filterindex=0;
sfd.restoredirectory=true;垍頭條萊
sfd.title="导出文件保存路径";垍頭條萊
sfd.showdialog();
stringstrfilepath=sfd.filename;
stringbuilderstrvalue=newstringbuilder();
streamwritersw=newstreamwriter(newfilestream(strfilepath,filemode.createnew),encoding.default);
//输出表头條萊垍頭
busidetailbd=newbusidetail();这里的busidetail是你执行导出操作所在的busidetail.xaml
bd.writeheader(sw);條萊垍頭
foreach(datarowdrindt1.rows)條萊垍頭
{條萊垍頭
strvalue.remove(0,strvalue.length);
for(inti=0;i<=dt1.columns.count-1;i++)
{頭條萊垍
strvalue.append(dr[i].tostring());
strvalue.append(",");
}
strvalue.remove(strvalue.length-1,1);//移出掉最后一个,字符
sw.writeline(strvalue);垍頭條萊
}
sw.close();條萊垍頭
system.windows.messagebox.show("导出文件成功！","成功",messageboxbutton.ok,messageboximage.information);
}
//输出表头
privatevoidwriteheader(streamwritersw)
{頭條萊垍
stringstrheader="时间,中文名称,英文名称,地市名称";
sw.writeline(strheader);垍頭條萊
}頭條萊垍
7. vb导入excel
建议Excelhome论坛问，那里可以上传附件，大神看见了会直接给你改一个。Sub 导入数据() Workbooks.Open Filename:= _ "C:\Users\Administrator\Desktop\新建文件夹 (2)\新建 Microsoft Excel 工作表.xls" Range("A1:BK2359").Select Selection.Copy Windows("Book1.xlsx").Activate Range("B2").Select ActiveSheet.Paste Workbooks("新建 Microsoft Excel 工作表.xls").CloseEnd Sub自己看看改改吧條萊垍頭
8. vb导出到excel文件名带时间
可对Ole控件关联对象的Excel表格的单元格的Value属性赋值来写入VB已读到的数据。
Value属性，返回或设置一个Variant型数，它指定该属性之值，此属性可读/写。
以下是实现代码：
9. vb怎么导出文件
宏是保存在你所打开的文档当中的1、打开含有宏的工作薄，点“工具/宏/宏(M)…”，选中你的宏，点“编辑”，这样就调出了VB编辑器界面。
2、点“文件/导出文件”，在“文件名”框中输入一个文件名（也可用默认的文件名），注意扩展名为“.bas”，点“保存”。
3、将扩展名为“.bas”的文件拷贝到另一台电脑，打开EXECL，点“工具/宏/VB编辑器”，调出VB编辑器界面，点“文件/导入文件”，找到你拷贝过来的文件，点“打开”，退出VB编辑器，你的宏已经复制过来了。
10. vbb怎么导入程序
将.csv格式数据导入数据库：
方式1、
在 MySQL 或者是 SQL Server 中直接编写代码，创建表格，而后导入数据。数据库頭條萊垍
注意：导入数据的格式要与建立数据库时的格式相同，否则会乱码。垍頭條萊
Windows 通常都是GBK或者UTF-8條萊垍頭
如：垍頭條萊
CREATE TABLE `采购网` (
`采购项目名称` TEXT NULL,
`品目` TEXT NULL,
`采购单位` TEXT NULL,條萊垍頭
`行政区域` TEXT NULL,頭條萊垍
`公告时间` TEXT NULL,
`获取招标文件时间` TEXT NULL,
`获取招标文件的地点` TEXT NULL,
`开标时间` TEXT NULL,
`开标地点` TEXT NULL,條萊垍頭
`预算金额` TEXT NULL,條萊垍頭
`采购单位地址` TEXT NULL,
`采购单位联系方式` TEXT NULL,垍頭條萊
`代理机构名称` TEXT NULL,
`代理机构地址` TEXT NULL,
`代理机构联系方式` TEXT NULL垍頭條萊
)
COLLATE='gbk_chinese_ci'
ENGINE=InnoDB條萊垍頭
ROW_FORMAT=COMPACT
;app垍頭條萊
方式2、
直接用R来导入数据库。垍頭條萊
注意：导入数据的格式要与建立数据库时的格式相同，否则会乱码。
Windows 通常都是GBK或者UTF-8條萊垍頭
library(RMySQL)條萊垍頭
## 创建R与数据库链接
con <- dbConnect(MySQL(),host="127.0.0.1",port=3306,
dbname="gbk",user="root",垍頭條萊
password="123")
dbSendQuery(con,"set character_set_results=gbk") 頭條萊垍
dbSendQuery(con,"set character_set_client=gbk")
dbSendQuery(con,"set character_set_connection=gbk")
dbSendQuery(con,"set character_set_database=gbk")
## 设置工做空间頭條萊垍
setwd("F:\\数据")
data <- read.csv("采购网.csv")
## 原数据库中已经有这样表，append=FALSE表示在数据库中新建一张表
dbWriteTable(con, "采购网",data,append=TRUE,row.names=FALSE)spa
方式3、
在Navicat Premium 数据库中链接 MySQL 或者是 SQL Server ，能够直接导入数据。（不须要建表格）
注意：导入过程当中注意数据格式和数据长度，否则会乱码或者部分导出。條萊垍頭