精华内容
下载资源
问答
  • 最近在做一个项目,项目的主体是基于Excel的VBA开发...为了使软件整体化、结构化,借助于VB,绘制了一个窗体,窗体上有若干个Button,每一个Button对应着一个带有VBA宏的Excel文件。 借助于以下语句将Excel文件打开 P

    最近在做一个项目,项目的主体是基于Excel的VBA开发。项目的各个要求比较零碎,每一项要求之间互相独立,于是每一项要求就由一个Excel表格来单独实现,项目结果是产生了若干个零碎的带有VBA宏的Excel文件。

    为了使软件整体化、结构化,借助于VB,绘制了一个窗体,窗体上有若干个Button,每一个Button对应着一个带有VBA宏的Excel文件

    借助于以下语句将Excel文件打开

    Private Sub Command1_Click()
        Dim ExcelApp As Object
        Dim MyExcel As Object
        
        Set ExcelApp = CreateObject("Excel.Application")
        ExcelApp.Visible = True
        Set MyExcel = ExcelApp.workbooks.open(App.Path + "\模板.xls")
        MyExcel.Activate

    End Sub

    下一个问题便是如何调用已经编制好了的VBA宏呢?首先想到的思路是把VBA宏复制过来,放到VB程序中,然后在Sub Command1_Click()中调用它,但是实施起来发现很困难,因为Application、workbooks、ThisWorkbook这些Excel VBA中习以为常的词汇VB却看不明白,需要一点一点的告诉Vb这是什么意思,非常麻烦,于是就想,能否让VB直接去调用Excel VBA中的宏呢?

    ExcelApp.run "ThisWorkBook.FillProcedure"        'run的调用者应是Application对象,而且,宏的名字前面要加ThisWorkBook.

    感谢http://blog.csdn.net/zhu2695/article/details/16974765中的提示。

    展开全文
  • Private Sub Command3_Click() Open “C:\Users\tanghuiling\Desktop\李向阳\big.txt” For Output As #1 Print #1, “” Close #1 End Sub 1、C:\Users\tanghuiling\Desktop\李向阳\...2、Output为打开文件的方式,...

    Private Sub Command3_Click()
    Open “C:\Users\tanghuiling\Desktop\李向阳\big.txt” For Output As #1
    Print #1, “”
    Close #1
    End Sub
    1、C:\Users\tanghuiling\Desktop\李向阳\big.txt 表示文件地址,txt为文件格式
    2、Output为打开文件的方式,以写入的方式打开
    3、#1 人为设置的文件号,相当于变量名
    4、Print #1, “” 写入空格
    5、Close #1 把文件关闭

    展开全文
  • 我的思路是用程序再次打开个文件 修改sheet的名字 但打开这个程序的时候就会报错 请问在开打之前能否设置忽略报错之类的可以直接打开程序呢? Dim appExcel As Excel.Application Dim strPath As String...
  • Open fileName For Binary As 1#’我已经写了用二进制打开文件 '现在循环就不知道怎么写了,想每次存256字节到plainText()数组一直循环到整个照片全部存入数组。 For i=1 To FileLen(fileName)’但是这是每次...
  • vb.net如何让程序只能打开三次后就不能打开了,不能用循环保存次数在一个文件
  • 各位:我问问VB.net开发程序如何启动Adobe Reader并打开一个PDF文件? 谢谢啊!
  • vb.net中如何检测一个已知的文件是否已经被打开或者被其他应用程序调用vb.net中如何检测一个已知的文件是否已经被打开或者被其他应用程序调用,急。。。__________________________________________________________...
    vb.net中如何检测一个已知的文件是否已经被打开或者被其他应用程序调用
    vb.net中如何检测一个已知的文件是否已经被打开或者被其他应用程序调用,急。。。
    __________________________________________________________________________
    试试看下面代码

    Dim fileName As String
    Try
    Dim aa As New System.IO.FileStream(fileName, IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite, IO.FileShare.None)
    If aa.CanWrite = False Then
    MsgBox(fileName + " is opened")
    Else
    MsgBox("ok")
    End If
    Catch ex As Exception
    MsgBox(ex.Message.ToString)
    End Try
    __________________________________________________________________________
    LS的我觉得不妥,如果文件是只读文件的话,CanWrite应该都返回false,也就是说无法判断是不是有其他人打开了此文件
    __________________________________________________________________________
    我差了下资料,LZ可以试试看
    用FileCopy复制你要打开的文件,捕捉它的异常,如果它的异常错误号是55的话,说明文件已打开,所以不能赋值,通过这个,可以判断这个文件是不是已经打开了,具体代码我等下写一个,再贴上来
    __________________________________________________________________________
    lZ,我测试了一下,貌似用其他工具先打开文件的话好像本程序无法判断
    不过我想方法是有的,我也等着学习先^_^
    __________________________________________________________________________
    我用file.delete(path)方法去删除一个已经打开的文件,文件表面上是被删除了,但是在电脑还是打开的,(我的电脑上删除文件不会弹出“确认文件删除”对话框,不知道是不是跟这个有关系?)VS也没有报告有什么异常,有异常就好了,可以捕捉这个异常。
    __________________________________________________________________________
    县判断有没有文件,若有则进行剪切操作,能剪切,说明没有被打开。

    VB.NET code


    If FileIO.FileSystem.FileExists(filename) Then
    Else

    MsgBox("文件不存在")
    Exit Sub
    End If

    dim path as string
    path="c:/temp"
    On Error GoTo opend
    FileIO.FileSystem.MoveFile(filename, path)

    FileIO.FileSystem.MoveFile(path,filename)
    MsgBox("文件未打开")

    Exit Sub
    opend:
    MsgBox("文件打开")
    __________________________________________________________________________
    有点乱,你凑合看~
    __________________________________________________________________________
    基本上被其他进程调用的话,也是不能剪切的吧。。。。(个人猜测,搂主自己试试吧。。。^.^)
    __________________________________________________________________________
    这要看怎么理解这个“打开”。

    可以象一楼的办法那样,尝试独占打开一个文件,如果不行,可以推测该文件正在使用中

    VB.NET code Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Using d As New OpenFileDialog
    If d.ShowDialog = Windows.Forms.DialogResult.OK Then
    Console.WriteLine(IsOpened(d.FileName))
    End If
    End Using
    End Sub

    Public Shared Function IsOpened(ByVal filename As String) As Boolean
    Try
    Dim aa As New System.IO.FileStream(filename, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)
    aa.Dispose()

    Return True
    Catch ex As Exception
    Return False
    End Try

    End Function



    但有一些,是貌似“打开”的情形,如用记事本打开一个文本文件,你是无法判断的。
    __________________________________________________________________________
    学习了
    __________________________________________________________________________
    Dim file As String
    file = "c:/1.doc"
    If FileIO.FileSystem.FileExists(file) Then
    Else
    MsgBox("文件不存在", MsgBoxStyle.OkCancel, "Error")
    Exit Sub
    End If
    Try
    FileIO.FileSystem.DeleteFile(file)''试着去去删除此文件
    Catch ex As Exception''捕捉删除时的异常
    MsgBox("文件已经打开或正在被使用", MsgBoxStyle.OkCancel, "Error")
    End Try
    但是如果你删除的是txt文本文件的话,好像不会出现异常,刚开始我是用txt试验的,可以删除一个正在被使用的txt文档而不报告异常。
    __________________________________________________________________________
    txt文件。。。。。。可以打开n多,随便删除。。。。。你要是针对txt的话,最好是研究下txt文件的原理,针对原理进行下判断。。。。不能简单的使用文件系统
    __________________________________________________________________________
    用这个吧,判断系统进程中是否含有这个文件的进程。这样应该完全可以判断文件是否被打开了


    VB.NET code

    Dim filename As String = "02.xls"
    Dim ps() As Process = Process.GetProcesses
    Dim p As Process
    For i = 0 To ps.Length - 1
    p = ps(i)

    If p.MainWindowTitle.Contains(filename) Then
    MsgBox("文件打开")
    End If

    Next
    __________________________________________________________________________
    展开全文
  • 工具/原料电脑CAD文件方法/步骤方法:我们可以在百度或者软件管家中搜索“风云PDF编辑器”,下载到电脑中并打开,这款软件功能性强,易于编辑。2.进入界面后,点击中间的添加文件,选择我们需要编辑的CAD文件并...

    在处理一些图纸文件的时候,我们需要用到专业的软件的,比如一些CAD编辑器。这样可以更加方便地对文件进行编辑、处理。那接下来就看看CAD文件要怎么编辑吧。

    727d91fbeb34cc53661c877d20cf3b27.png

    工具/原料

    • 电脑
    • CAD文件

    方法/步骤

    1. 方法一:我们可以在百度或者软件管家中搜索“风云PDF编辑器”,下载到电脑中并打开,这款软件功能性强,易于编辑。
    12fc5ad0a7a7438fd802016922ecf3fd.png

    2.进入界面后,点击中间的添加文件,选择我们需要编辑的CAD文件并打开

    45c7aa17a4cf63704d23f7df98c976fd.png

    3.接着我们可以滚动鼠标滚轮,对CAD图纸进行缩放,找到文字

    4d14db59f0bdc20eef5e98a2b01c9f03.png

    4.点击鼠标右键,选择属性,即可在界面左边菜单栏对文字进行编辑。

    0809091908064d258613bf2f4e6bdda7.png

    5.方法二:Acme CAD Converter

    是一款优秀的多功能CAD图形工具软件。它可以浏览不同版本的DWG和DXF文件,支持shx字体文件,xref块文件,和光栅文件的导入,支持创建对dwg和dxf文件的关联,完美的支持CAD图形中文字体的显示。

    29e86cf30e1b61567138e3565c8ccb53.png

    6.方法三:转转大师CAD编辑器

    支持CAD快速看图、CAD图纸测量、修补断线、CAD图纸快速标注、智能捕捉想要内容、提取CAD图纸文字、3D/2D图纸互转预览、CAD格式转换等一系列CAD文件编辑功能,无需AutoCAD支持,全面兼容全部CAD格式文件,包括DWG、DXF、DWT等CAD图纸格式文件,可对编辑后的CAD文件进行个性化设置,同时还可以将CAD批量转为PDF文件。

    d4eede1b8ca62e7b39b44e1f8a2f8fce.png

    注意事项

    • 支持编辑多种格式CAD文件
    展开全文
  • VB6中如何程序控制EXCEL运行并打开刚生成的一个EXCEL文件 具体细节问题有如下几个: (1)如何判断本机有没有安装EXCEL程序 (2)如何取得EXCEL程序所在的路径 (3)如何判断生成的EXCEL文件存在了没有 (4...
  • 在使用浩辰CAD制图软件绘图的过程中,当需要给同事发送比较多的DWG文件时,通常会将CAD图纸放到一个文件夹中,然后将其压缩后再发送给对方,但是当我们在手机中收到CAD图纸压缩包时,该如何打开压缩包呢?...
  • vb.net下如何操作已经打开的活动excel文件前言、原理是什么二、使用步骤1.引入库2.读入数据总结 前言 用VB.NET操作excel的时候发现,如果用excel=new Microsoft.Office.Interop.Excel.Application 这种方法无法...
  • VB打开文本文件.doc

    2010-06-30 15:59:59
    VB打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此,笔者将自己搜集到的几种方法无私地奉献出来(-_-),供各位参考。
  • 【转】如何复制一个正在使用的文件?(VB6.0) 刚刚在群里与别人聊到,使用VB的FileCopy函数无法复制正在使用中的文件.他是想将数据库备份.网上有不少的办法,有使用API的,有使用FSO的等.我想,无法复制使用中的文件,可能...
  • ▲在白纸上写好的签名方法:这种方法比较实在,不怕麻烦的朋友可以用这方式制作。1、打开CAD,点击插入——光栅图像参照,导入签名的图片。2、然后用直线开始描文字轮廓吧,坚持到最后就是胜利!方法二:用矢量...
  • 各位朋友,你们好。...今天就来和大家分享下文件保密措施中的一个小设置:Excel文件的自杀。为什么要让文件自杀呢?假设你的重要数据被不法分子得到了,通过他对文件的一些操作,来触发自杀代码的执行,让文件瞬...
  •  该属性记录程序的帮助文件路径 设置了该属性后你的程序按下F1就能自动打开你设定的帮助文件了 使用: form_load() 事件内代码: APP.HelpFile="帮助文件路径" 就句代码 若需要其他地方打开帮助文件 ...
  • 如何更有效地打开文本文件应该是一个值得研究的课题。为此,笔者将自己搜集到的几种方法无私地奉献出来(-_-),供各位参考。同时期盼大家也来参与,借VB编程乐园这块宝地互相交流。如您有这份心,土人在这里先说声...
  • 第一款 Easy CAD to Image ConverterEasy CAD to Image Converter是一款完全免费的中文版软件,这款软件可以把指定的CAD文件转换为图片格式打开,对图纸的打开速度进行了优化,可以快速查看一个dwg文件(注意现支持06...
  • 笔者前段时间在对接酒店的一家门锁系统,由于酒店使用的门锁系统已经快10年了,在切换酒馆系统的时候希望能对接上这个门锁系统,但是目前只有一个动态库文件DLL,以及一个简单的文档说明。无法得知该动态库文件是否...
  • 我们在使用电脑时,用户常常会有需求打开一个指定文件夹,并自动选中某个指定文件。 比如在用浏览器下载文件完成后,可以打开所在文件夹,这就用到这个功能。可以看到这个功能还是非常的实用的。 那么如何实现这个...
  • VB打开文本文件的各种方法

    千次阅读 2009-11-05 00:13:00
    如何更有效地打开文本文件应该是一个值得研究的课题。为此,笔者将自己搜集到的几种方法无私地奉献出来(-_-),供各位参考。 下面所举的例子均假设F盘下有一个名为d.txt的文本文件,若需要尝试这些例子请作相应的改动...
  • vb中的dsr文件如何创建?...也可以在VB6的”工程“菜单里添加”Data Report"简单介绍一下dsr 文件DataReport 对象DataReport对象是一个可编程对象,代表数据报表设计器(Data Report designer)。语法DataReport说...
  • 给你一个参考思路:1.密码文件的后缀不一定要是TXT的,你可以将:FileName = App.Path + "\password.txt"改为任意的不常见的后缀:FileName = App.Path + "\password.mima"照样可以,这是最初级的“加密”形为,因为在...
  • 这是最基本的一点要求,但是有时候忙碌的情况下难免会出现疏忽或者遗漏的情况,如果不做判断的话,可能会导致花费了一个小时更新的数据都没有了,所以为了脚本的完整和通用性,我们还是要坐下判断比较好。...
  •  当跳出对话框的时候,程序被挂在,程序不能直接跑到点击代码里,需要开一个线程进行点击。在VB6里,可以用Timer控件进行定时执行点击动作,实现类似线程的功能。 以下代码在Win7 64位下测试可以实现。 在窗体上...
  • 一个应用程序中,对文件的处理是一个比较常用的操作,如打开文件、保存文件,等等。Visual Basic 提供了三个控件对磁盘文件夹与文件进行显示与操作,它们分别是:DriveListBox(磁盘列表框)控件、DirListBox...
  • hello,大家好,又来到了每周一期的知识大课堂啦,每期的知识大课堂,我们都会分享一个实用的知识点。本期的知识大课堂为大家带来的是:shell命令的使用方法。 在很多情况下,我们需要在应用程序中直接打开电脑中的...
  • VB如何读取txt文件的数据

    万次阅读 2007-08-23 13:06:00
    Dim A, S As String Dim FreeNum As Integer FreeNum = FreeFile Freenum表示一个空闲的文件号 open "D:/date.txt" for input as #FreeNum 这步是打开“date.txt”,for input表示以输入方式(即读取文件打开。...
  • CAD技巧精华❺|原创:就说我在开发区CAD这种工具软件最大的特点就是入门容易提高难,...《实用技巧300条》第五期,就来说说在使用中10在日常使用中经常遇到的问题:41-命令行42-显示精度43-工作空间44-Shift键...
  • vb打开chm 文件的几种方法

    千次阅读 2012-08-19 14:47:13
    一个应用程序不论编制得如何完美,在很多情况下用户还是会对如何使用它提出问题。 Visual Basic 提供了对两种不同帮助系统的支持:传统的 Windows 帮助系统 (WinHelp)和新的 HTML 帮助(CHM帮助)。当我们制作好帮助...

空空如也

空空如也

1 2 3 4 5 ... 13
收藏数 249
精华内容 99
关键字:

vb如何打开一个文件