精华内容
下载资源
问答
  • vb 记事本程序设计

    2009-06-23 14:21:29
    记事本程序 实现了修改字体和颜色的功能过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码
  • 学习VB的好资料。自己在做某些软件的时候,可以调用这些代码,将您的数据自动保存记事本格式。实用
  • vb代码编译的打开、新建、保存记事本软件
  • 摘要:VB源码,字符处理,记事本  记事本源码,VB代码下载,学习一下菜单的创建和定义、字体对话框的使用、使用With语句设置RichTextBox控件的各种属性、定义菜单的单击事件、保存对话框等小技巧,
  • 花了几个星期去完成一个VB实训项目,到今天可以说是告一节了,但是我还是留下一个问题:我的记事本里的打开对话框,当我打开我的对话框,点击“取消”时却出现了如下的错误提示,对此我很不解。我用的是visual ...

    花了几个星期去完成一个VB实训项目,到今天可以说是告一节了,但是我还是留下一个问题:我的记事本里的打开对话框,当我打开我的对话框,点击“取消”时却出现了如下的错误提示,对此我很不解。我用的是visual studio 2010 VB 写的!我的代码如下:

    Sub open_click()
            '单击打开命令的处理过程

            '如果当前编辑的文件内容被更改,提示用户保存文件
            '将选取的文件内容显示到文本框中

            Dim FilStr As String
            Dim TempStr As String
            Dim SaveIt As Integer
            If Modified = True Then
                SaveIt = MsgBox("文件" & Me.Text & "的正文已更改," & "是否保存更改?", vbYesNoCancel)
                If SaveIt = 2 Then Exit Sub
                If SaveIt = 6 Then
                    If FPath_Name <> "" Then
                        SaveFileDialog1.FileName = FPath_Name
                        SaveFileDialog1.Filter = "Text Files(*.txt)|*.txt|" & "All Files (*.*)|(*.*)"
                        SaveFileDialog1.ShowDialog()
                        If SaveFileDialog1.FileName <> "" Then
                            FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output, OpenAccess.Default)
                            Print(1, TextBox1.Text)
                            FileClose(1)

                        End If
                    End If
                End If
            End If
            OpenFileDialog1.Filter = "Text Files(*.txt)|*.txt|" & "All Files (*.*)|(*.*)"
            OpenFileDialog1.ShowDialog()
            If Windows.Forms.DialogResult.Cancel = True Then
                Exit Sub
            End If


            If OpenFileDialog1.FileName = "" Then Exit Sub
            FPath_Name = OpenFileDialog1.FileName


            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input, OpenAccess.Read)

            FilStr = ""
            Do Until EOF(1)
                TempStr = LineInput(1)

                FilStr = FilStr & TempStr
            Loop
            FileClose(1)
            Me.Text = OpenFileDialog1.FileName
            TextBox1.Text = FilStr

        End Sub

    当我打开打开对话框,选择“取消”时出现下面的提示:并指到 FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input, OpenAccess.Read)这条语句

    请问我该如何修改!

    展开全文
  • 相信大家学VB如果连记事本这东西都不知道话就很郁闷了,CG今天接到Kivi的任务,做一个能看懂代码记事本程序作为VB作业上交,据说还要上台讲,这老师真够难为人的,反正CG是有段时间没有见到了,源代码附上,如果...
    相信大家学VB如果连记事本这东西都不知道话就很郁闷了,CG今天接到Kivi的任务,做一个能看懂代码的记事本程序作为VB作业上交,据说还要上台讲,这老师真够难为人的,反正CG是有段时间没有见到了,源代码附上,如果大家有需要的话拿走,毕竟像初学者还是需要的。



    简要说明:

    记事本程序主要是要求在VB中使用Common Dialog Control控件的打开文件,打开字体,保存文件对话框的功能,实现文本的创建、修改、编辑、保存的功能,也是大家平时也使用的比较多的文本编辑器。





    源代码地址:

    http://www.lidaren.com/code/VBnotepad.zip



    以下是部分参考代码:



    Dim Changed As Boolean '是否被修改

    Dim IsSave As Boolean '是否已经保存

    Dim FileName As String '文件名称

    Dim TxtBefore As String '修改前文本,用于撤销操作



    '窗体加载

    Private Sub Form_Load()

    Clipboard.Clear

    End Sub



    '窗体关闭

    Private Sub Form_Unload(Cancel As Integer)

    '与退出按钮的事件处理方法相同

    If Changed = True Then

    result = MsgBox("您正要关闭编辑窗口,是否保存您的修改?", vbYesNoCancel, "确定") '提示是否保存

    If result = vbYes Then

    MenuStripSave_Click '直接调用保存事件的方法

    ElseIf result = vbNo Then

    Unload Me '卸载窗体

    End If

    Else

    Unload Me

    End If

    End Sub



    '关于

    Private Sub MenuStripAbout_Click()

    MsgBox "Powered By CG", vbOKOnly, "关于"

    End Sub

    '选择全部文本

    Private Sub MenuStripSelectAll_Click()

    RTBox.SelStart = 0 '从文本开始处开始

    RTBox.SelLength = Len(RTBox.Text) '选择长度 = 文本最大长度

    End Sub

    '撤销

    Private Sub MenuStripUndo_Click()

    RTBox.Text = TxtBefore '恢复文本

    End Sub

    '文本框文本变化

    Private Sub RTBox_Change()

    Changed = True '发生Change事件

    If FileName = "" Then '如果文件名是空 未命名

    FileName = "未命名"

    Me.Caption = FileName '修改标题

    End If

    If InStr(Me.Caption, "*") = 0 Then

    Me.Caption = FileName + "*" '标记星号

    End If

    End Sub

    '窗体调整大小

    Private Sub Form_Resize()

    RTBox.Width = Form1.Width - 40 '修改文本框的大小

    RTBox.Height = Form1.Height - 40

    End Sub

    '复制

    Private Sub MenuStripCopy_Click()

    Clipboard.Clear '清楚剪切板

    Clipboard.SetText RTBox.SelText

    End Sub

    '剪切

    Private Sub MenuStripCut_Click()

    Clipboard.Clear

    Clipboard.SetText RTBox.SelText

    RTBox.SelText = "" '复制后删除所选文本

    End Sub

    '删除

    Private Sub MenuStripDelete_Click()

    RTBox.SelText = "" '直接删除文本

    End Sub

    '退出

    Private Sub MenuStripExit_Click()

    If Changed = True Then

    result = MsgBox("您正要关闭编辑窗口,是否保存您的修改?", vbYesNoCancel, "确定") '确认

    If result = vbYes Then

    MenuStripSave_Click '调用保存事件的代码

    ElseIf result = vbNo Then

    Unload Me

    End If

    Else

    Unload Me '如果没有修改那就直接卸载窗体

    End If

    End Sub

    '字体对话框

    Private Sub MenuStripFont_Click()

    ComDiag.Flags = 1

    ComDiag.ShowFont '显示字体对话框

    RTBox.Font.Bold = ComDiag.FontBold '字体属性赋值

    RTBox.Font.Italic = ComDiag.FontItalic

    RTBox.Font.Name = ComDiag.FontName

    RTBox.Font.Size = ComDiag.FontSize

    RTBox.Font.Strikethrough = ComDiag.FontStrikethru

    RTBox.Font.Underline = ComDiag.FontUnderline

    End Sub

    '新建

    Private Sub MenuStripNew_Click()

    Dim result As Integer '定义一个int用于获取对话框结果

    If Changed = True Then

    result = MsgBox("您正要新建一个编辑窗口,是否保存您的修改?", vbYesNoCancel, "确定")

    If result = vbYes Then

    MenuStripSave_Click

    End If

    Else

    FileName = "未命名"

    Me.Caption = FileName

    RTBox.Text = "" '清空文本框

    End If

    End Sub

    '打开

    Private Sub MenuStripOpen_Click()

    ComDiag.Filter = "*.*"

    ComDiag.ShowOpen

    If ComDiag.FileName <> "" Then '如果选择了文件

    FileName = ComDiag.FileName

    RTBox.Text = ""

    RTBox.LoadFile FileName

    Me.Caption = FileName '修改标题

    End If

    End Sub



    '粘贴

    Private Sub MenuStripPaste_Click()

    RTBox.SelText = Clipboard.GetText '粘贴剪贴板的内容

    End Sub



    '保存

    Private Sub MenuStripSave_Click()

    Dim result As Integer

    If IsSave = True Then

    RTBox.SaveFile FileName, rtfText '如果已经保存过,直接保存结果

    If InStr(Me.Caption, "*") <> 0 Then '标题中有* ?

    Me.Caption = Replace(Me.Caption, "*", "") '替换

    End If

    Else

    ComDiag.Filter = "*.*"

    ComDiag.DialogTitle = "保存" + FileName

    ComDiag.ShowSave '保存对话框

    If FileName <> "" Then

    FileName = ComDiag.FileName

    RTBox.SaveFile FileName, rtfText '保存结果TEXT格式

    IsSave = True '已经保存

    Me.Caption = FileName

    If InStr(Me.Caption, "*") <> 0 Then

    Me.Caption = Replace(Me.Caption, "*", "") '清除星号

    End If

    End If

    End If



    End Sub

    '另存为

    Private Sub MenuStripSaveAs_Click()

    ComDiag.Filter = "*.*"

    ComDiag.DialogTitle = "另存为..."

    ComDiag.ShowSave

    If FileName <> "" Then

    FileName = ComDiag.FileName

    RTBox.SaveFile FileName, rtfText

    IsSave = True

    Me.Caption = FileName

    If InStr(Me.Caption, "*") <> 0 Then

    Me.Caption = Replace(Me.Caption, "*", "")

    End If

    End If

    End Sub



    Kivi加油!!



    --------------------------------------------------------------------------------------
    - 版权声明:
    - 如在本页面内无特别说明,本文内容均为[李大仁博客]原创,本文版权归[李大仁博客]所有。
    - 欢迎转载,转载请务必在文章页面明显位置提供原文链接并注明出处。欢迎您在转载本文时保留本段声明。
    - 文章标题:[VB]VB6实现仿Windows的记事本notepad的程序源代码
    - 独立博客:李大仁博客
    - 永久链接:http://www.lidaren.com/archives/335
    --------------------------------------------------------------------------------------
    以上内容由博客自动发布工具自动发布,最终显示内容和效果会与原文内容有所偏差,敬请谅解。
    展开全文
  • vb2008记事本日语版

    2012-01-30 12:41:55
    基本功能都有打开保存复制之类。有判断文件是否改动,背景音乐,透明窗体 拖拽打开文本,正反向大不小写搜索richtextbox,`选择右键在网上搜索关键字。不过是日语在日语系统下编写,想运行这个记事本,需把系统编码改...
  • VB记事本

    2007-01-12 14:42:00
    通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。 第一章 让我们的记事本马上运行 ...
    通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。
      
      第一章 让我们的记事本马上运行
      
      急于求成是初学者共有的心愿。那好,请按如下三个步骤做,我们的愿望立即就可以实现!
      
      步骤一:绘制界面。
      新建一个标准EXE工程,将其Caption属性改为“超级记事本”,点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们,单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText Box和Commn Dialog,其中RichText Box的大小和位置可不用理睬,我们将在代码中处理它,当然,有必要把它的ScrollBar属性设为2-rtfVertical,这样在打开和编辑文件时垂直滚动条才可用。
      
      步骤二:编辑菜单。
      按Ctrl+E调出菜单编辑器,我们来做如下几个菜单:
      一.文件菜单:
      文件(第一层) mnuFile
      新建(第二层) mnuNew
      打开(第二层) mnuOpen
      保存(第二层) mnuSave
      - (第二层) mnuFileSep (分隔线)
      退出(第二层) mnuExit
      二.编辑菜单:
      编辑(第一层) mnuEdit
      复制(第二层) mnuCopy
      剪切(第二层) mnuCut
      粘贴(第二层) mnuPaste
      - (第二层) mnuEditSep (分隔线)
      全选(第二层) mnuSelecAll
      三.搜索菜单:
      搜索(第一层) mnuSearch
      查找(第二层) mnuFind
      查找下一个(第二层) mnuFindOn
      四.帮助菜单:
      帮助(第一层) mnuHelp
      使用说明(第二层) mnuUsage
      关于(第二层) mnuAbout
      (注:各菜单项的快捷键请自行设置)
      
      好了,其它的菜单项以后再根据需要添加。现在进入:
      
      步骤三:编写代码。
      
      '声明查找变量
      Dim sFind As String
      '声明文件类型
      Dim FileType, FiType As String
      
      '初始化程序
      Private Sub Form_Load()
      '设置程序启动时的大小
      Me.Height = 6000
      Me.Width = 9000
      End Sub
      
      '设置编辑框的位置和大小
      Private Sub Form_Resize()
      On Error Resume Next '出错处理
      RichTextBox1.Top=20
      RichTextBox1.Left=20
      RichTextBox1.Height = ScaleHeight-40
      RichTextBox1.Width = ScaleWidth-40
      End Sub
      
      '新建文件
      Private Sub mnuNew_Click()
      RichTextBox1.Text = "" '清空文本框
      FileName = "未命名"
      Me.Caption = FileName
      End Sub
      
      
      '打开文件
      Private Sub mnuOpen_Click()
      CommonDialog1.Filter = "文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
      CommonDialog1.ShowOpen
      RichTextBox1.Text = "" '清空文本框
      FileName = CommonDialog1.FileName
      RichTextBox1.LoadFile FileName
      Me.Caption = "超级记事本:" & FileName
      End Sub
      
      '保存文件
      Private Sub mnuSave_Click()
      CommonDialog1.Filter = "文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
      CommonDialog1.ShowSave
      FileType = CommonDialog1.FileTitle
      FiType = LCase(Right(FileType, 3))
      FileName = CommonDialog1.FileName
      Select Case FiType
      Case "txt"
      RichTextBox1.SaveFile FileName, rtfText
      Case "rtf"
      RichTextBox1.SaveFile FileName, rtfRTF
      Case "*.*"
      RichTextBox1.SaveFile FileName
      End Select
      Me.Caption = "超级记事本:" & FileName
      End Sub
      
      '退出
      Private Sub mnuExit_Click()
      End
      End Sub
      
      '复制
      Private Sub mnuCopy_Click()
      Clipboard.Clear
      Clipboard.SetText RichTextBox1.SelText
      End Sub
      
      '剪切
      Private Sub mnuCut_Click()
      Clipboard.Clear
      Clipboard.SetText RichTextBox1.SelText
      RichTextBox1.SelText = ""
      End Sub
      
      '全选
      Private Sub mnuSelectAll_Click()
      RichTextBox1.SelStart = 0
      RichTextBox1.SelLength = Len(RichTextBox1.Text)
      End Sub
      
      '粘贴
      Private Sub mnuPaste_Click()
      RichTextBox1.SelText = Clipboard.GetText
      End Sub
      
      '查找
      Private Sub mnuFind_Click()
      sFind = InputBox("请输入要查找的字、词:", "查找内容", sFind)
      RichTextBox1.Find sFind
      End Sub
      
      '继续查找
      Private Sub mnuFindOn_Click()
      RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1
      RichTextBox1.Find sFind, , Len(RichTextBox1)
      End Sub
      
      '使用说明
      Private Sub mnuReadme_Click()
      On Error GoTo handler
      RichTextBox1.LoadFile "Readme.txt", rtfText '请写好Readme.txt文件并存入程序所在文件夹中
      Me.Caption = "超级记事本:" & "使用说明"
      Exit Sub
      handler:
      MsgBox "使用说明文档可能已经被移除,请与作者联系。", vbOKOnly, " 错误信息"
      End Sub
    '关于
      Private Sub mnuAbout_Click()
      MsgBox "超级记事本 Ver1.0 版权所有(C) 2001 土人",vbOKOnly,"关于"
      End Sub
      
      '设置弹出式菜单(即在编辑框中单击鼠标右键时弹出的动态菜单)
      Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      If Button = 2 Then
      PopupMenu mnuEdit, vbPopupMenuLeftAlign
      Else
      Exit Sub
      End If
      End Sub
      
      '防止在切换输入法时字体自变(感谢王必成先生提供此方案)
      Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
      If KeyCode = vbKeySpace Then
      RichTextBox1.SelFontName = CommonDialog1.FontName
      End If
      End Sub
      
      至此,我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的记事本看看,是不是颇有成就感?
      当然,这样的记事本还比较粗糙,我们还需要做些工作,请看下一章。
      
      
      第二章 美化程序界面
      
      多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外,还给用户带来操作上的便利。现在我们就来做一做这两样东西。
      
      一.工具栏
      (一)制作工具栏
      单击“工程”-“部件”,选中Microsoft Windows Common Control 6.0并确定。这时,我们要用到的控件就出现在左边的工具栏上了。
      要做工具栏,首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它,然后右键单击此控件,左键单击“属性”,弹出“属性页”对话框的“图像”,再单击“插入图片”就可以一次性装载图片了(如不满意,以后还可以添加)。图片可在C:\Microsoft Visual Studio\Common\Graphics\Bitmaps\TlBr_W95下选择(这里假设你的VB安装在C盘下)。注意了:在插入图片时给每一张图片注明关键字,以便在引用图片时不至于混乱。如插入“新建”的图片,我们在“关键字”栏注明“New”。
      图片有了,接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面,右键单击它,选择“属性”,在弹出的“属性页”对话框中的“通用”项作些设置,主要如下两项:
      1.“图像列表”:选择ImageList1
      2.“样式”:根据喜爱选择1-trbStandard或者2-trbFlat
      继续点击“属性页”的“按钮”选项,插入若干按钮。按钮有多种样式,请根据需要设置。这里请一定注意:每一个与用户操作有关的按钮都必须注明关键字、装载图片,如“新建”按钮,在“关键字”项注明“新建”,在“图像”项键入“New”(即ImageList1中的图片关键字),需要的话还可以在“工具提示文本”项填入适当的提示语。
      (二)编写工具栏的按钮代码
      工具栏按钮的代码编辑很简单,可以按照下面的格式去编写:
      Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)
      On Error Resume Next '出错处理
      Select Case Button.Key '按关键字选择
      Case "新建"
      mnuNew_Click '等于菜单项“新建”被单击
      Case "打开" '等于菜单项“打开”被单击
      mnuOpen_Click
      '......(继续编写其它按钮的代码)
      End Select
      End Sub
      
      完成后试运行一下我们的程序,我们发现,有了工具栏之后,程序变得漂亮多了,只是有一个问题:打开一个较长的文档后,编辑框的下拉滚动条向上的箭头不见了。原因是:工具条占用一定的空间。解决方法:将“设置编辑框的位置和大小”中的RichTextBox1.Top = 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分别改为RichTextBox1.Top = 380,RichTextBox1.Height = Me.ScaleHeight - 400即可。
      
      二.状态栏
      (一)制作状态栏
      状态栏的英文名字叫StatusBar,在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它,调出“属性页”对话框,单击“窗格”项,插入一些窗格,可以将各个窗格的“样式”设置为:
      0-sbrText 显示文本,需编写代码
      1-sbrCaps 显示大小写状态,无需编程
      2-sbrNum 显示NumLock键开关状态,无需编程
      3-sbrIns 显示Insert键状态,无需编程
      4-sbrScr1
      5-sbrTime 显示时间,不编程时时间不会随系统时钟变化
      6-sbrDate 显示日期,无需编程
      注意:加进状态栏后需将Form_Resze中的RichTextBox1.Height = Me.ScaleHeight - 400改为RichTextBox1.Height = Me.ScaleHeight - 600。
      (二)状态栏根据其“样式”属性决定用不用编写代码(如上文所述)。下面举些例子,读者可以认真揣摩,从而达到举一反三的效果。
      
      例一:用户选取了“新建”后,让第一个窗格显示:“目前状态:正在打开文件《……》”。请将下面代码写进“打开”菜单里面:
        StatusBar1.Panels(1).Text = "目前状态:正在打开文件" & "《" &CommonDialog1.FileTitle & "》"
      
      例二:让第三个窗格显示时间并让时间跟随系统时钟变化。
      首先,给程序加一个Timer控件,将其Interval属性设为1000。然后:
      在Form_Load过程加入:StatusBar1.Panels(1).Text = Time;然后给Timer控件编写代码:
      
      Private Sub Timer1_Timer()
      If StatusBar1.Panels(3).Text < > CStr(Time) Then
      StatusBar1.Panels(3).Text = Time
      End If
      End Sub
      
      例三:当编辑框的文本发生变化时让第一个窗格显示:“正在编辑文档:文件名”。
      Private Sub RichTextBox1_Chang()
      StatusBar1.Panels(1).Text = "正在编辑文档:" & CommonDialog1.FileName
      End Sub
      
      辛苦了那么久,我们现在已经拥有一个象模象样的记事本了。这个记事本由于用了RichText控件,理论上它能打开和编辑任意大的文档,使用起来的确比Windows自带的记事本方便得多。当然,还有一些其它的功能需要添加和完善,这就靠你慢慢去完成了。

    转载于:https://www.cnblogs.com/tanghuawei/archive/2007/01/12/618801.html

    展开全文
  • VB 制作个人记事本

    2011-07-17 15:17:13
    'False_VB教程:VB制作带撤销功能的记事本 QQ:5333784 '应网友要求,今天给大家带来一个用VB做带有撤销功能的记事本 'VB记事本网上已经有很多教程了 '但是却很少有撤销功能的 '今天我就给大家做一个 '我们...
  • 记事本自动保存代码,稍加修改就可以自动保存任何文件 用VB6编写,最新修改,用sendmessage,保存文件 icecept@163.com QQ:543375508
  • 记事本自动保存代码,稍加修改就可以自动保存任何文件 用VB6编写 icecept@163.com QQ:543375508
  • 代码 Private Sub Command1_Click() Text1.FontSize = Text2.Text End Sub Private Sub Command2_Click() Open App.Path & "\保存.txt" For Append As #1 Print #1, Text1.Text Close #1 End Sub Private Sub Form...
  •  由VB代码开发的C语言编辑器,软件功能:  1.具备记事本的所有编辑功能;  2.实现了与TC.计算器.WINDOWS自带游戏的连接,切换快捷;秘籍:若你单击子窗体上的日期标签将会弹出本软件自带的打字游戏.  3.查找与...
  • VB笔记本-记事程序-资料保存程序,是一个字符处理程序,类似于记事本的功能,不过进行了增强和界面重新设计,用于记录一些好文、代码片段等,是工作和学习的小助手。  这个VB笔记本,记录存放在其目录下的名为...
  • 我不知道为什么我不能从R调用我的宏代码,这是我试图保存为vbs文件的代码:(我应该将它保存记事本应用程序中吗?)Sub vb()Dim xlAppDim xlBookSet xlApp = CreateObject("Excel.Application")Set xlBook = xlApp....

    我不知道为什么我不能从R调用我的宏代码,这是我试图保存为vbs文件的代码:(我应该将它保存在记事本应用程序中吗?)

    Sub vb()

    Dim xlApp

    Dim xlBook

    Set xlApp = CreateObject("Excel.Application")

    Set xlBook = xlApp.Workbooks.Open("path.xlsm", 0, False)

    xlApp.Visible = True

    xlApp.Run "Countries"

    xlApp.Quit

    Set xlBook = Nothing

    Set xlApp = Nothing

    End Sub

    如何将上述代码保存为vbs?

    最佳答案 使用下面的VBS代码,因为您无法将VBA代码保存为VBS作为架构,或者说它们不在同一页面中,因为C和C不同,它们以相同的方式

    Set objExcel = CreateObject("Excel.Application")

    Set objWorkbook = objExcel.Workbooks.Open("path.xlsm")

    objExcel.Application.Visible = True

    objExcel.Application.Run "path.xlsm!Countries" 'Refer to the below if the code is under sheet

    objExcel.ActiveWorkbook.Close

    WScript.Echo "Finished."

    WScript.Quit

    如果您已将代码放在工作表中.用户这一行

    objExcel.Application.Run "path.xlsm!sheet1.dog"

    希望这能解决您的疑问.快乐的编码.

    展开全文
  • VB制作BHO

    2017-03-15 10:25:54
    打开记事本,把下面代码复制进去,然后保存为IObjectWithSiteTLB.odl。 [  uuid(CF9D9B76-EC4B-470D-99DC-AEC6F36A9261),  helpstring("VB IObjectWithSite Interface"),  version(1.0)  ]  library ...
  • VB简单文本编辑器

    2011-12-30 10:35:19
    VB做一个记事本实在不很复杂,我们完全可以通过...通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。
  • VB编制定时存盘程序

    2009-01-06 20:03:00
    我们知道,Word等软件具有定时存盘功能,隔一段时间就自动存盘,十分方便。可我们常用的“记事本”程序就没有此功能,其实用VB... 在VB中建一窗体form1,内加一时间控件timer1,程序实现每5分钟保存一次文件,代码如下:
  • 本文叙述了如何在VB中实现控件的IobjectSafety接口, 以标志该控件是脚本安全和初始化安全的。 VB控件默认的处理方式是在注册表中注册... 1、将以下文本复制到记事本, 并作为 objsafe.odl 项目文件夹以保存文件: [ ...
  • 打开记事本,把下面代码复制进去,然后保存为IObjectWithSiteTLB.odl。 [ uuid(CF9D9B76-EC4B-470D-99DC-AEC6F36A9261), helpstring("VB IObjectWithSite Interface"), version(1.0) ] library ...
  • VB,VF,C Builder,Delphi,PowerBuilder,ASP HTML的分色显示,让您在浏览代码的时候能对各种成分进行区分,找出您想要的关键部分,而且它也可以直接对各种文本文件进行编辑,完全可以代码您常用的记事本。 软件说明:...
  • VB控件实现IObjectSafety安全接口(zt) 本文叙述了如何在VB中实现控件的IobjectSafety接口, <br />以标志该控件是... 1、将以下文本复制到记事本, 并作为 objsafe.odl 项目文件夹以保存文件:  
  • 是每个窗体都有的,保存窗体的代码,你可以用记事本打开; .frx 窗体里使用图片、图标等资料,保存的是资源; .vbp和.vbw 保存一个工程时他会自动生成这两个文件。 .vbp ...
  • vbio.zip 读写I/0口的VB代码(18KB) 96,shellex5.zip Sellexecute demo Project(7KB) 97,inicon32.zip 在VB中实现访问WINDOWS INI 文件的源代码(26KB) 98,fileio.zip 读写保存文件的源...
  • 第二步:步骤2 打开记事本,在其中复制下面的XML代码:文件名为CustomUI.xml,编码为UTF-8 保存到桌面customUI文件夹中 label="佛山小老鼠工具" insertBeforeMso="TabHome"> 加解密"> imageMso=...
  • dhsz.zip 象钟面一样有时针、分针和秒针(3KB) 612,o044_zm045.zip 一个非常酷的机器人的源程序,你可以自己制作你喜欢的机器人并保存起来,很有意思哦(137KB) 613,o043_004101102.zip TreeView的基本...
  • dhsz.zip 象钟面一样有时针、分针和秒针(3KB) 612,o044_zm045.zip 一个非常酷的机器人的源程序,你可以自己制作你喜欢的机器人并保存起来,很有意思哦(137KB) 613,o043_004101102.zip TreeView的基本...
  • dhsz.zip 象钟面一样有时针、分针和秒针(3KB) 612,o044_zm045.zip 一个非常酷的机器人的源程序,你可以自己制作你喜欢的机器人并保存起来,很有意思哦(137KB) 613,o043_004101102.zip TreeView的基本...
  • dhsz.zip 象钟面一样有时针、分针和秒针(3KB) 612,o044_zm045.zip 一个非常酷的机器人的源程序,你可以自己制作你喜欢的机器人并保存起来,很有意思哦(137KB) 613,o043_004101102.zip TreeView的基本...

空空如也

空空如也

1 2 3 4
收藏数 77
精华内容 30
关键字:

vb记事本保存代码