vb读取excele实例,电子表格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)

事情表知事件道.放在ThisWorkbook的内VBE代码窗口容

Private Sub Workbook_Open()

Dim shname As String, sh As Worksheet

shname = Sheets(Sheets.Count).Name

If shname

Set sh = Sheets.Add(after:=Sheets(Sheets.Count))

sh.Name = Date

End If

End Sub

用Clipboard属性。Clipboard 工具用于操纵剪贴板上的文本和图形。它利用户可以或许复制、剪切和粘贴应用措施中的文本和图形。用法如下：Clipboard.Clear 排除粘贴板Clipboard.SetText Text1.Text 从text1中读取文本到系统粘贴板

、在工程中引用Microsoft Excel范例库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。暗示在工程中要引用EXCEL范例库。

2、在通用工具的声明进程中界说EXCEL工具：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在措施中操纵EXCEL表常用呼吁：

Set xlApp = CreateObject("Excel.Application") '建设EXCEL工具Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '配置EXCEL工具可见（或不行见）

Set xlSheet = xlBook.Worksheets("表名") '配置勾当事情表xlSheet.Cells(row, col) =值 '给单位格（row,col）赋值xlSheet.PrintOut '打印事情表xlBook.Close (True) '封锁事情簿xlApp.Quit '竣事EXCEL工具Set xlApp = Nothing '释放xlApp工具这是我保藏的，你试一下

set fs=createobject("scripting.filesystemobject")'建设文件操纵工具if fs.fileexists("C:\a.txt") then'假如C盘A.txt存在，那么读取其内容set txt=fs.opentextfile("C:\a.txt",forreading,true)set txtn=txt.readallelse'假如不是set txtf=fs.createtextfile("c:\a.txt",true)'建设C盘下的a.txtdo'无限轮回(不消担忧他一直轮回，关了就没了)wscript.sleep 1000'延时一秒txtf.write a.text'写入文本框中内容loop'轮回竣事end if'判定竣事留意啦！以上代码未颠末测试！只是一个思路。

答：二进制数制的应用主要在计较机方面。

二进制使计较性能读懂的独一呆板语言。计较机编程所用的所有编程语言，如汇编语言，C语言， VB等等所编写的措施必需颠末编译器转换为二进制，计较机才气读懂。它的道理也很简朴，就是用高电位代表1低电位代表0。

二进制数制它的元素只有两个：0和1，它的进位法则就是逢2进1。

答可以的

1、vb6中可以利用以下方法输入数据：

a)利用inputbox()函数输入数据；

b)利用Textbox控件（文本框）输入数据；

c)利用文件输入数据；

d)利用数据库输入数据等。

2、详解inputbox()函数输入数据，示比方下：

InputBox 函数：在一对话框来中显示提示，期待用户输入正文或按下按钮，并返回包括文本框内容的 String。

语法：

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

示例：

Dim Message, Title, Default, MyValue

Message = "Enter a value between 1 and 3" ' 配置提示信息。

Title = "InputBox Demo" ' 配置标题。

Default = "1" ' 配置缺省值。

' 显示信息、标题及缺省值。

MyValue = InputBox(Message, Title, Default)

' 利用辅佐文件及上下文。“辅佐”按钮便会自动呈现。

MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' 在 100, 100 的位置显示对话框。

MyValue = InputBox(Message, Title, Default, 100, 100)

4、其它输入方式可以网上查找或看MSDN

Function lines(r) 'r 为某单位格，如A1r.WrapText = Falsex = r.Heightr.WrapText = Truey = r.Heightlines = y / xEnd Function利用方式 lines(range("A1"))思路：配置该单位格不自动换行，获得此时的高度x，规复自动换行，获得此时的高度y，行数=y/x