精华内容
下载资源
问答
  • 怎么用VBTXT格式的数据文件导入EXCEL表中.doc
  • VB中如何将MSFlexGrid数据导入到Excel中.txt
  • Private Sub CommandButton1_Click()'按钮触发, ... fileToOpen = Application.GetOpenFilename("请选文本(*.txt), *.txt", , "导入逗号分隔文本") '选择txt把路径给fileToOpen '判断路径的正确性 If fileToO...

    Private Sub CommandButton1_Click()
    '按钮触发,

    '按钮触发,目前支持ASNI文本的数据, 单行

    fileToOpen = Application.GetOpenFilename("请选文本(*.txt), *.txt", , "导入逗号分隔文本")
    '选择txt把路径给fileToOpen
    '判断路径的正确性
    If fileToOpen = False Then
    MsgBox "错误路径" & Chr(13) & "请重新选择"

    End If
    '定义s
    Dim s As String
    Dim tt As Long
    tt = Range("A1").Value
    Range("B1").Value = tt
    'chr(65)为A
    Range(Chr(65) & tt).Select


    ' With对某个对象执行一系列的语句,ActiveSheet活动表中,QueryTables集合体,add添加,---Connection链接,TEXT,fileToOpen路径值,Destination写入到表格变量Range(Chr(65) & tt))


    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range(Chr(65) & tt))

    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 936
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
    End With

    End Sub

     

    语法
    Chr(charcode)
    charcode为各类字符的ASCII码
    
    在ASP脚本字符串中不能识别、无法标识或与该语法产生冲突的字符,可用“chr(相应ASCII码)”来表达,
    本函数也可称为ASP程序中的转义符。
    
    用法:
    比如“ASP中字符串替换”
    将media_span_url("index.html")替换为<br>
    wstr=Replace(wstr,"media_span_url"&chr(40)&chr(34)&"index.html"&chr(34),"<br>")
    如果在上述字符串中直接输入“括号()”,则将与表达式中的“括号”产生冲突。
    使用chr()语法,对asp字符串中“括号()”进行转义,即可轻松解决该问题。
    
    chr()转义字符对照表
      
      Chr("0") 为0的字符
    
      Chr("1") 
    
      Chr("2") 
    
      Chr("3") 
    
      Chr("4") 
    
      Chr("5") 
    
      Chr("6") 
    
      Chr("7") 响铃
    
      Chr("8") 回格
    
      Chr("9") tab(水平制表符)
    
      Chr("10") 换行
    
      Chr("11") tab(垂直制表符)
    
      Chr("12") 换页
    
      Chr("13") 回车 chr(13)&chr(10) 回车和换行的组合
    
      Chr("14") 
    
      Chr("15") 
    
      Chr("16") 
    
      Chr("17") 
    
      Chr("18") 
    
      Chr("19") 
    
      Chr("20") 
    
      Chr("21") 
    
      Chr("22") 
    
      Chr("23") 
    
      Chr("24") 
    
      Chr("25") 
    
      Chr("26") 结束 End
    
      Chr("27") 脱离 Pause break
    
      Chr("28") 
    
      Chr("29") 
    
      Chr("30") 
    
      Chr("31") 
    
      Chr("32") 空格 SPACE
    
      Chr("33") !
    
      Chr("34") "
    
      Chr("35") #
    
      Chr("36") $
    
      Chr("37") %
    
      Chr("38") &
    
      Chr("39") ’
    
      Chr("40") 左括号转义 (
    
      Chr("41") 右括号转义 ) 
    
      Chr("42") * 
    
      Chr("43") +
    
      Chr("44") ,
    
      Chr("45") - 
    
      Chr("46") .
    
      Chr("47") /
    
      Chr("48") 0 
    
      Chr("49") 1
    
      Chr("50") 2
    
      Chr("51") 3
    
      Chr("52") 4 
    
      Chr("53") 5
    
      Chr("54") 6
    
      Chr("55") 7
    
      Chr("56") 8
    
      Chr("57") 9 
    
      Chr("58") :
    
      Chr("59") ;
    
      Chr("60") <
    
      Chr("61") =
    
      Chr("62") > 
    
      Chr("63") ?
    
      Chr("64") @
    
      Chr("65") A 
    
      Chr("66") B
    
      Chr("67") C 
    
      Chr("68") D
    
      Chr("69") E
    
      Chr("70") F
    
      Chr("71") G
    
      Chr("72") H 
    
      Chr("73") I
    
      Chr("74") J
    
      Chr("75") K
    
      Chr("76") L
    
      Chr("77") M 
    
      Chr("78") N
    
      Chr("79") O
    
      Chr("80") P
    
      Chr("81") Q
    
      Chr("82") R 
    
      Chr("83") S
    
      Chr("84") T
    
      Chr("85") U
    
      Chr("86") V
    
      Chr("87") W 
    
      Chr("88") X
    
      Chr("89") Y
    
      Chr("90") Z 
    
      Chr("91") [
    
      Chr("92") \ 
    
      Chr("92") \
    
      Chr("93") ]
    
      Chr("94") ^
    
      Chr("95") _
    
      Chr("96") `
    
      Chr("97") a 
    
      Chr("98") b
    
      Chr("99") c
    
      Chr("100") d
    
      Chr("101") e
    
      Chr("102") f 
    
      Chr("103") g
    
      Chr("104") h
    
      Chr("105") i
    
      Chr("106") j
    
      Chr("107") k 
    
      Chr("108") l
    
      Chr("109") m
    
      Chr("110") n
    
      Chr("111") o
    
      Chr("112") p 
    
      Chr("113") q
    
      Chr("114") r
    
      Chr("115") s
    
      Chr("116") t
    
      Chr("117") u 
    
      Chr("118") v
    
      Chr("119") w
    
      Chr("120") x
    
      Chr("121") y
    
      Chr("122") z 
    
      Chr("123") {
    
      Chr("124") |
    
      Chr("125") }
    
      Chr("126") ~
    
      Chr("127") 
    
      Chr("128") 
    
      Chr("129") 
    
      Chr("130") 
    
      Chr("131") 
    
      Chr("132")
    

      

    转载于:https://www.cnblogs.com/--3q/p/7170583.html

    展开全文
  • 功能:模拟将外部数据导入数据库。 模型:简化各字段只有人员编号,姓名,口令,性别住址。每个人的信息为单独的TXT文件. 方法:读取文件按字段将数据插入到相应表的对应字段中。 图示:设计表结构及完成情况
  • Sub updata_Close_Inquiry() 'stable 要导入的表,Inquiry为临时表,存放即将导入数据,并在Inquiry表中进行格式转换 Dim ds As String Dim i, j Dim ss = 0 ds = "" For i = LBound(arr) + 1 To
    Sub updata_Close_Inquiry()
            'stable 要导入的表,Inquiry为临时表,存放即将导入的数据,并在Inquiry表中进行格式转换
            Dim ds As String
            Dim i, j
            Dim ss = 0
            ds = ""
            For i = LBound(arr) + 1 To UBound(arr)  'arr为需要更新的数据,如果SQL中存在,删除,再重新导入arr的数据
                ds = "'" & arr(i, 53) & arr(i, 54) & "'," & ds 'ds为主键的内容,即需要在SQL中删除的数据
            Next
            ds = Left(ds, ds.Length - 1) '对ds内容进行修改
            ds = Replace(ds, "' ", "")
    
            Dim rs As SqlCommand
            Dim cnn As SqlConnection
            Dim sqlstr1 As String
            cnn = New SqlConnection("server=" & ssever & ";database=" & sdatabase & ";uid=sa;pwd=sa")
            sqlstr1 = "USE Sales_Order IF COL_LENGTH('" & stable & "', 'Order_No') IS  NULL alter table " & stable & "  add Order_No nvarchar(255) "  'SQL主键是否存在,如果存在,删除,在之前的操作中可能有增加SQL的主键
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                rs.ExecuteNonQuery()
            Catch
                MsgBox("Error:0", 16, "Attention")
                Exit Sub
            Finally
            End Try
            cnn.Close()
            sqlstr1 = "USE Sales_Order UPDATE " & stable & " SET [Order_No] = convert(varchar(255),convert(decimal(20,0),[Order No#]))+[Line No#]" '重新增加SQL主键,并填充主键内容
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                rs.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            Finally
            End Try
            cnn.Close()
            sqlstr1 = "USE Sales_Order DELETE FROM " & stable & " Where [Order_No] in (" & ds & ")" '删除在ds中的数据
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                ss = rs.ExecuteNonQuery() 'ss为返回删除的行数
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            Finally
            End Try
            cnn.Close()
            EditRecord = EditRecord + ss '记录删除的行数
            'sqlstr1 是用BULK上传TXT文件的语句
            sqlstr1 = "USE Sales_Order IF COL_LENGTH('" & stable & "', 'Order_No') IS NOT NULL  ALTER TABLE " & stable & " DROP COLUMN Order_No " '删除Order_No主键,在TXT文档中没有该列
            sqlstr1 = sqlstr1 & "TRUNCATE TABLE Inquiry; " '清除Inquiry表的数据
            sqlstr1 = sqlstr1 & "alter table Inquiry alter column [Order Date] nvarchar(255) alter table Inquiry alter column [Shipment Date] nvarchar(255) alter table Inquiry alter column [Closed Date] nvarchar(255) alter table Inquiry alter column [Fapiao Date] nvarchar(255) alter table Inquiry alter column [Nota Date] nvarchar(255) " '按需求将Inquiry表的格式全部修改为nvarchar(255),防止TXT文档导入时出错
            sqlstr1 = sqlstr1 & "BULK INSERT Inquiry FROM '" & stxt & "' WITH (FIELDTERMINATOR ='\t', ROWTERMINATOR= '\n'); " '将TXT文档导入Inquiry表中 FIELDTERMINATOR:分列符  ROWTERMINATOR:分行符
            sqlstr1 = sqlstr1 & "alter table Inquiry alter column [Order Date] date alter table Inquiry alter column [Shipment Date] date alter table Inquiry alter column [Closed Date] date alter table Inquiry alter column [Fapiao Date] date alter table Inquiry alter column [Nota Date] date " '按照需求将Inquiry表的格式修改成stable格式
            rs = New SqlCommand(sqlstr1, cnn) '执行
            Try
                cnn.Open()
                rs.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            End Try
            cnn.Close()
            sqlstr1 = "USE Sales_Order insert into " & stable & " select * from Inquiry "  '将Inquiry表中的数据导入到stable表中,并记录导入的行数
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                ss = rs.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            End Try
            cnn.Close()
            UpdataRecord = UpdataRecord + ss
            sqlstr1 = "USE Sales_Order TRUNCATE table Inquiry; update  " & stable & " set [Line No#]  = replace([Line No#],'''','');update " & stable & " set [Line No#]  = replace([Line No#],' ','');"  '收尾,Inquiry表中的数据,对stable的文本进行处理
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                rs.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            End Try
            cnn.Close()
    
            cnn = Nothing
            rs = Nothing
            If ss <> UBound(arr) - 1 Then
                MsgBox(stxt & "导入失败", 16)
            End If
        End Sub
    展开全文
  • 昨天有帮朋友写一个txt->sql的数据转化程序,这个当然很简单了....例子:Txt导入Access现在把代码共享出来,让大家参考.'使用DAOPrivate Sub Command1_Click()'On Error Resume NextDim db As D...
    昨天有帮朋友写一个txt->sql的数据转化程序,
    这个当然很简单了.但是在朋友发过来的SourceCode中,却发现了一种很好用的方法.
    它是使用DAO数据源.
    例子:Txt导入Access
    现在把代码共享出来,让大家参考.

    '使用DAO
    Private Sub Command1_Click()
    'On Error Resume Next
    Dim db As Database, tbl As TableDef
    Set db = DBEngine.OpenDatabase(App.Path & "/db1.mdb")  '打开数据库
    Set tbl = db.CreateTableDef("temp") '创建一个临时的文本链接表
           tbl.Connect = "text;database=" & App.Path 'TXT文件所在的目录
           tbl.SourceTableName = "gps_g2_20060329-181849#txt" 'TXT文件的名称
           db.TableDefs.Append tbl '将表加入到数据库中
           db.Execute "insert into table1 select temp.tagid,temp.exit_location_id,temp.exit_time from temp"
           db.TableDefs.Delete tbl.Name '删除temp链接表
    db.Close: Set db = Nothing '关闭数据对象
    If Err = 0 Then
    MsgBox "导入成功! "
    Else
    MsgBox "错误" & Err
    Exit Sub
    End If
    End Sub

    但是要注意,使用这一种方法呢,需要在当前文件夹下面,添加一个文件(schema.ini)
    内容如下:
    [gps_g2_20060329-181849.txt]                                      要转化的Txt文件名
    colnameheader=false                       
    format=fixedlength                                                          
    col1=NO LONG width 3  
    col2=TAGID text width 12
    col3=temp1 text width 7
    col4=EXIT_LOCATION_ID  text Width 20
    col5=temp2  text Width 1

    col6=EXIT_time  text Width 9

    本文转自kenty博客园博客,原文链接http://www.cnblogs.com/kentyshang/archive/2006/06/14/425393.html如需转载请自行联系原作者


    kenty

    展开全文
  • 根据CSHARP 的源码修改 vb.net版 只需传入DataSet、文件名即可。具体操作还需要灵活应用 文本只需复制到自己的工程即可!!
  • Access和VB或者VBA是很让人困惑的技术 原因主要是微软提供的MSDN或者说明文档实在是太难用了,简单的说,一个这么大的公司,网上提供的说明文档,内容少,中英文混杂,无法有效的通过baidu检索到,它自身的检索也...

    Access和VB或者VBA是很让人困惑的技术

    原因主要是微软提供的MSDN或者说明文档实在是太难用了,简单的说,一个这么大的公司,网上提供的说明文档,内容少,中英文混杂,无法有效的通过baidu检索到,它自身的检索也非常难用,我真不知道微软到底怎么了。我想劝劝微软中国的分公司,老老实实,把基础工作做好,不要总是好高骛远,微软就是被你们给害了。

    下面说点正题。

    access这个数据库,自带了vba这种编程语言,可以协助开发者向access中写入数据

    其中一个功能就是,从access的外部,向access导入txt中的数据

    使用的函数是 DoCmd.TransferText

    这个函数在MSDN中有没有介绍呢?有。看完以后你是不是就能知道怎么用呢?我可以肯定的说不能

    https://msdn.microsoft.com/zh-cn/library/ff835958(v=office.15).aspx

    我想让你给我解释一下,下面这个msdn怎么看,你麻痹你能看出个鸡巴毛啊~


    好在有个网站

    http://www.blueclaw-db.com/export-specifications.htm

    说明了specification Name这个参数到底什么意思,应该怎么用

    微软自己说不清楚,有人帮它说清楚了


    1.打开access2007


    2.选中 外部数据- 导入-文本文件 如下图


    3. 打开你要导入的txt文件如下


    4.点击确定


    5.点击高级


    6.然后 高潮来了,specification name 其实这个参数的意思,在office2007中文版中指的是 规格。。。。。你妈


    傻逼,看见上面图中那个txtsplit这个字符串了么,这你妈就是一个名字,你创建了一个导入向导,import 然后起了一个名字,这你妈就是居然 方法DoCmd.TransferText的重要参数

    我曹,一万个草泥马。。。。。。。。。。。


    好吧,让我从头说起 我要用的语句是下面这一条语句:

    DoCmd.TransferText acImportDelim, "txtsplit", "XXX", name, False, ""

    你看方法名是 DoCmd.TransferText

    后面跟着六个参数

    具体参数什么意思我也懒得管了

    最主要的 “txtsplit”的意思,就是在access中自定义的 导入specification Name 

    "XXX"表示在access中早就创建好的数据库表的名字








    展开全文
  • 3、导入.txt文件Excel实现在Excel中导入.txt文件时,我们需要通过依次单击菜单栏中的数据> 获取外部数据>自文本,然后选择要导入的.txt文件所在的路径,如下图 所示。选完路径以后会出现如下图所示界面,预览...
  • ★本摇号软件绿色免费,无需安装直接运行,数据直接复制粘贴,实现数据导入零操作。 ★使用时请在软件目录下的bonus.txt文件为摇号(抽奖)的资料库。可以从excel、word文档等直接复制粘贴过来。 ★每次软件刚运行,...
  • QTP下载链接.txt

    2020-08-17 09:04:43
    这是一款专业的软件自动化测试工具,绝对是测试人员的法宝,它为开发人员和测试人员提供了实用的功能,可以方便开发者对软件的漏洞进 行测试和修复,软件集成了软件测试一体化流程,只需要将要测试的应用导入,便...
  • 现在把VB程序设定为输出TXT文本数据保存在路径D:\powerCtrl_VB_step.txt 我这里给出一种算法,可以实现自动导入并绘图,主要是阀门实际上不能突变,因此要有一个公式模型计算出实际的输出序列。 数据是以下格式的纯...
  • Free Spire.PDF for .NET 支持的功能十分全面,例如文档安全性设置(电子签名),提取 PDF 文本、附件、图片,PDF 合并和拆分,更新 Metadata,设置 Section,绘制图形、插入图片、表格制作和加工、导入数据等等。...
  • 经典SQL脚本大全

    2013-12-24 15:28:19
    │ bcp-数据导入导出-二进制文件.sql │ bcp-数据导出为文件.sql │ bcp表数据存为XML.sql │ SQL Server到Oracle连接服务器的实现.sql │ SQL Server到SQLBASE连接服务器的实现.sql │ SQL Server到SYBASE连接...
  • 蓝精灵全能王

    2015-08-28 14:17:44
    数据导入到开奖数据库。 8、计算速度超快:计算速度在当今彩票软件中首趋一指。 9、添加连接幸运星打印系统接口;独特的即见即所得打印投注单功能。 加密锁版(套):498元 精装 版(套):398元 简易 版...
  • │ bcp-数据导入导出-二进制文件.sql │ bcp-数据导出为文件.sql │ bcp表数据存为XML.sql │ SQL Server到Oracle连接服务器的实现.sql │ SQL Server到SQLBASE连接服务器的实现.sql │ SQL Server到SYBASE连接...
  • Sqlserver2000经典脚本

    2007-05-23 10:58:09
    介绍就不多说了,下边是部分目录,觉得有用的话就顶一个 C:. │ sqlserver2000.txt │ ├─第01章 │ 1.9.1 设置内存选项.sql │ 1.9.2(2) 使用文件及文件组.sql │ 1.9.2(3) 调整...
  • 电子书架

    2006-03-16 00:00:00
    采用Paradox 数据库,具备数据导入、导出、备份、恢复、纠错、压缩功能,安全、稳定、可靠;可以在库库之间、库与磁盘之间进行导入导出,以便资料共享分发。如果你发现有什么地方不对劲,可以用一下[工具]菜单下的...
  • 纵横软件库存导入功能,可以直接把库存导入系统,几十万条数据就是几十秒的事情,随时可以批量更新,或者单条更新都可以,所有的库存自己公司员工都可以看,做到数据共享,方便库存管理的强大好处。 打单功能 6. ...
  • 很好用的管家婆数据导入导出工具,已测试完成,可放心下载使用 立即下载 1积分/C币时间:2018-06-16 doc文件 管家婆数据修复工具解决辉煌版7.1,7.2因病毒或非法使用问题 打开\data\sysdata.dbf文件(可以用excel打开...
  • asp.net知识库

    2015-06-18 08:45:45
    实现C#和VB.net之间的相互转换 深入剖析ASP.NET组件设计]一书第三章关于ASP.NET运行原理讲述的补白 asp.net 运行机制初探(httpModule加载) 利用反射来查看对象中的私有变量 关于反射中创建类型实例的两种方法 ASP...
  • DLL函数查看器V3.5

    热门讨论 2013-07-24 10:10:37
    *修复部分EXE文件导入表函数反汇编无识别的问题 *修复"总在最前"时"选项设置"窗口无法显示的问题 *修复数据处理等待画面引起的程序意外退出的问题 DLL函数查看器V3.3 (2011.08.28) =========================== *...
  • 易语言5.1 相对于易语言5.0更新说明: ... 修改XML解析支持库,增加写出CDATA数据功能,解决解析XML时错误的丢弃换行和TAB字符的BUG,解决读取节点值时对CDATA数据进行转义处理的BUG。 20. 修改扩展界面支持库...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    Excel文件的导入和导出操作 如题。主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件...
  • vc++ 应用源码包_1

    2012-09-15 14:22:12
    Excel文件的导入和导出操作 主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件查询系统,...
  • vc++ 应用源码包_5

    2012-09-15 14:45:16
    Excel文件的导入和导出操作 主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件查询系统,...
  • vc++ 应用源码包_4

    2012-09-15 14:38:35
    Excel文件的导入和导出操作 主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件查询系统,...
  • vc++ 应用源码包_3

    2012-09-15 14:33:15
    Excel文件的导入和导出操作 主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件查询系统,...

空空如也

空空如也

1 2
收藏数 30
精华内容 12
关键字:

vb导入txt数据