附VB源程序：(程序中使用了窗体Form1，文本框Text1，命令按钮Command1)　　1、窗体代码：　　OptionExplicit　　DimCryptographAsString　　DimiAsInteger　　DimjAsInteger　　DimkAsInteger　　DimCryptographStr(32)AsInteger　　DimPWstrAsString　　DimPassWordAsString　　PrivateSubCommand1_Click()　　PWstr=“"　　PassWord=“"　　Text1.Text=“"　　Cryptograph=GetBinaryValue(“ScreenSave_Data")　　k=Len(Cryptograph)　　Forj=1Tok－1　　Fori=32To126　　IfMid(Cryptograph,j,1)=Chr(i)Then　　CryptographStr(j)=i　　EndIf　　Nexti　　Nextj　　i=(k－1)/2'密码位数为(h－1)/2,根据位数选择解密过程

Sub 过程可以使用参数（由调用过程传递的常数、变量或表达式）

PrivateSubCommand2_Click()Dimbackback=mciSendString&("OPEN" App.Path "\TEST.mid" "TYPESEQUENCERALIASNN",0&,0,0)back=mciSendString&("PLAYNNFROM0",0&,0,0)R=mciSendString&("CLOSEANIMATION",0&,0,0)EndSub

PrivateSubForm_Load()Dimbackback=mciSendString&("OPEN" App.Path "\TEST.mid" "TYPEWaveAudioALIASNN",0&,0,0)back=mciSendString&("PLAYNNFROM0",0&,0,0)R=mciSendString&("CLOSEANIMATION",0&,0,0)EndSub->

intWindowStyle

　　新建一个VB项目，在缺省窗体Form1中加入一个PictureBox控件Picture1，插入一个模块Module1，在其中加入如下声明语句：

　　DeclareFunctionBitBltLib"GDI"(ByValhDestDCAsInteger,ByValXAsInteger,ByValYAsInteger,ByValnWidthAsInteger,ByValnHeightAsInteger,ByValhSrcDCAsInteger,ByValXSrcAsInteger,ByValYSrcAsInteger,ByValdwRopAsLong)AsInteger

　　PublicConstSRCCOPY=＆HCC0020

　　在项目中加入下列代码：　　PrivateSubForm―Load()　　　DimhDCPicAsLong　　　DimXPosAsInteger　　　DimYPosAsInteger　　　DimRetAsInteger　　　DimHeightMaxAsInteger　　　DimWidthMaxAsInteger　　　DimWidthPicAsInteger　　　DimHeightPicAsInteger

　　'将位图载入Picture1的设备描述表　　　Picture1.ScaleMode=3　　　Picture1.Visible=False　　　Picture1.AutoSize=True　　　Picture1.AutoRedraw=True

　　'在此选择贴图的图案文件　　　Picture1.Picture=LoadPicture("tile.bmp")

　　'初始化变量　　HeightMax=Screen.Height\Screen.TwipsPerPixelY　　WidthMax=Screen.Width\Screen.TwipsPerPixelX　　WidthPic=Picture1.ScaleWidth　　　HeightPic=Picture1.ScaleHeight

　　'初始化Picture1的设备描述表以接受平铺贴图　　　Picture1.AutoSize=False　　　Picture1.Height=Screen.Height　　　Picture1.Width=Screen.Width　　　hDCPic=Picture1.hDC

　　'水平拷贝位图生成平铺贴图的第一行　　　ForXPos=0ToWidthMaxStepWidthPic　　　Ret=BitBlt(hDCPic,XPos,0,WidthPic,HeightPic,hDCPic,0,0,SRCCOPY)　　　Next

　　'垂直拷贝已生成的第一行直至生成整个平铺贴图　　　ForYPos=HeightPicToHeightMaxStepHeightPic　　　Ret=BitBlt(hDCPic,0,YPos,WidthMax,HeightPic,hDCPic,0,0,SRCCOPY)　　　Next

　　'将Picture1中的位图装入Form显示，然后清除Picture1中的位图　　　Me.Picture=Picture1.Image　　　Picture1.Picture=LoadPicture("")　　　Picture1.AutoRedraw=False

　　EndSub

　按F5运行，Form1的窗口内就出现了一个平铺贴图背景

代码如下：

以上代码经本人测试完美有效，结贴~~~大部分的这些可编程对象都被内嵌在某种宏语言中，比如VBA，它就是一种使用在MicrosoftOffice应用程序中的宏语言

dim oExcel,oWb,oSheet Set oExcel=CreateObject("Excel.Application") Set oWb=oExcel.Workbooks.Open("E:\其他\新装电话表.xls") Set oSheet=oWb.Sheets("Sheet1") MsgBox oSheet.Range("B2").Value '#提取单元格B2内容 '..... 3、如果是XP系统，可以使用如下代码 Dim objFileDlg Set objFileDlg=CreateObject("UserAccounts.CommonDialog") objFileDlg.Filter="Excel File (*.xls) |*.xls" If objFileDlg.ShowOpen Then msgbox "您选择的文件是：" & objFileDlg.FileName & vbCrLf End If

VBS控制Excel的一些常见方法： (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: oExcel=CreateObject( "Excel.Application" ) 1) 显示当前窗口： oExcel.Visible=True 2) 更改 Excel 标题栏： oExcel.Caption="应用程序调用 Microsoft Excel" 3) 添加新工作簿： oExcel.WorkBooks.Add 4) 打开已存在的工作簿： oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" ) 5) 设置第2个工作表为活动工作表： oExcel.WorkSheets(2).Activate 或 oExcel.WorksSheets( "Sheet2" ).Activate 6) 给单元格赋值： oExcel.Cells(1,4).Value="第一行第四列" 7) 设置指定列的宽度（单位：字符个数），以第一列为例： oExcel.ActiveSheet.Columns(1).ColumnsWidth=5 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： oExcel.ActiveSheet.Rows(2).RowHeight=1/0.035 ' 1厘米 9) 在第8行之前插入分页符： oExcel.WorkSheets(1).Rows(8).PageBreak=1 10) 在第8列之前删除分页符： oExcel.ActiveSheet.Columns(4).PageBreak=0 11) 指定边框线宽度： oExcel.ActiveSheet.Range( "B3:D4" ).Borders(2).Weight=3 1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / ) 12) 清除第一行第四列单元格公式： oExcel.ActiveSheet.Cells(1,4).ClearContents 13) 设置第一行字体属性： oExcel.ActiveSheet.Rows(1).Font.Name="隶书" oExcel.ActiveSheet.Rows(1).Font.Color=clBlue oExcel.ActiveSheet.Rows(1).Font.Bold=True oExcel.ActiveSheet.Rows(1).Font.UnderLine=True 14) 进行页面设置： a.页眉： oExcel.ActiveSheet.PageSetup.CenterHeader="报表演示" b.页脚： oExcel.ActiveSheet.PageSetup.CenterFooter="第&P页" c.页眉到顶端边距2cm： oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035 d.页脚到底端边距3cm： oExcel.ActiveSheet.PageSetup.HeaderMargin=3/0.035 e.顶边距2cm： oExcel.ActiveSheet.PageSetup.TopMargin=2/0.035 f.底边距2cm： oExcel.ActiveSheet.PageSetup.BottomMargin=2/0.035 g.左边距2cm： oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.035 h.右边距2cm： oExcel.ActiveSheet.PageSetup.RightMargin=2/0.035 i.页面水平居中： oExcel.ActiveSheet.PageSetup.CenterHorizontally=2/0.035 j.页面垂直居中： oExcel.ActiveSheet.PageSetup.CenterVertically=2/0.035 k.打印单元格网线： oExcel.ActiveSheet.PageSetup.PrintGridLines=True 15) 拷贝操作： a.拷贝整个工作表： oExcel.ActiveSheet.Used.Range.Copy b.拷贝指定区域： oExcel.ActiveSheet.Range( "A1:E2" ).Copy c.从A1位置开始粘贴： oExcel.ActiveSheet.Range.( "A1" ).PasteSpecial d.从文件尾部开始粘贴： oExcel.ActiveSheet.Range.PasteSpecial 16) 插入一行或一列： a. oExcel.ActiveSheet.Rows(2).Insert b. oExcel.ActiveSheet.Columns(1).Insert 17) 删除一行或一列： a. oExcel.ActiveSheet.Rows(2).Delete b. oExcel.ActiveSheet.Columns(1).Delete 18) 打印预览工作表： oExcel.ActiveSheet.PrintPreview 19) 打印输出工作表： oExcel.ActiveSheet.PrintOut 20) 工作表保存： if not oExcel.ActiveWorkBook.Saved then oExcel.ActiveSheet.PrintPreview 21) 工作表另存为： oExcel.SaveAs( "C:\Excel\Demo1.xls" ) 22) 放弃存盘： oExcel.ActiveWorkBook.Saved=True 23) 关闭工作簿： oExcel.WorkBooks.Close 24) 退出 Excel： oExcel.Quit (二) 使用VBS 控制Excle二维图 1）选择当第一个工作薄第一个工作表 set oSheet=oExcel.Workbooks(1).Worksheets(1) 2）增加一个二维图 achart=oSheet.chartobjects.add(100,100,200,200) 3）选择二维图的形态 achart.chart.charttype=4 4）给二维图赋值 set series=achart.chart.seriescollection range="sheet1!r2c3:r3c9" series.add range,true 5）加上二维图的标题 achart.Chart.HasTitle=True achart.Chart.ChartTitle.Characters.Text=" Excle二维图" 6）改变二维图的标题字体大小 achart.Chart.ChartTitle.Font.size=18 7）给二维图加下标说明 achart.Chart.Axes(xlCategory, xlPrimary).HasTitle=True achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text="下标说明" 8）给二维图加左标说明 achart.Chart.Axes(xlValue, xlPrimary).HasTitle=True achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text="左标说明" 9）给二维图加右标说明 achart.Chart.Axes(xlValue, xlSecondary).HasTitle=True achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text="右标说明" 10）改变二维图的显示区大小 achart.Chart.PlotArea.Left=5 achart.Chart.PlotArea.Width=223 achart.Chart.PlotArea.Height=108

如何用vbs把excel的单元格数据写到txt

把以上代码存为Excel2Txt.vbs双击执行就行了

VBS操作Excel

不用找MSDN，在EXCEL帮助中就能找到，看“编程信息”/“Microsoft Excel Visual Basic 参考”/“属性”/“Q-R”/“Rows 属性”的介绍，和“编程信息”/“Microsoft Excel Visual Basic 参考”/“方法”/“I-L”/“Insert 方法”的介绍，就能明白这条语句的语法面试题

　　将要保存所创建.mdf和.ldf文件的文件夹必须在运行该代码之前就已存在、否则会引发异常FILE: Tlbinf32.exe : Help Files for Tlbinf32.dll 原文：。