精华内容
下载资源
问答
  • VBA个人 最初的想法是为personal.xlsb一个存储库。 然后它变得更大。 然后,我阅读了一篇有关匈牙利表示法的文章,并... 在2016年的某个地方,我决定将我正在使用的所有有用的VBA代码放在一个存储库。 该存储库当前
  • 3、在“可使用的引用”查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目,并取消勾选; 一般情况下,用第3步即可解决,如问题依旧,请在“可使用的引用”查找并勾选与丢失的条目类似的引用...

    问题:找不到工程库

    解决方式:

     

        1、在VBE中选择报错的工程;
        2、单击“工具”-->“引用”,打开引用对话框;
        3、在“可使用的引用”中查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目,并取消勾选;

        一般情况下,用第3步即可解决,如问题依旧,请在“可使用的引用”中查找并勾选与丢失的条目类似的引用(一般除版本号不同,其它名称相同,如有多个版本,请选择最高版本)。
        如果还不能解决,可能是电脑中缺少控件或对象库,需要下载控件并注册(控件的注册使用regsvr32命令),再使用上面的步骤解决!

    展开全文
  • 将TXT文档的数据按照一定的格式写入Excel,并跟据日期或者特定条件可以查询数据,并自动绘制曲线图!不含任何空间,纯代代码,方便移植。
  • VBA挑战 此存储库中VBA脚本(.bas文件)的目的是从特定的excel文件中获取库存数据,并计算年度变化,变化... 然后,脚本应将这些计算结果输出新列,并循环浏览各行,直到为excel文件中的每个工作表处理了库存数据。
  • 但在目标机器上却提示“VBA错误信息:找不到指定的文件“xxx.dll”(错误 53)”。 然后换用CodeBlocks+MingW编译,运行正常。 当时想是不是VC生成的dll不能被VBA调用?网上也查了很多方法,也无法解决。 最后突然...

    用VC2013制作了个生成二维码的DLL,目的是给VBA调用。

    本机编译后,运行正常。但在目标机器上却提示“VBA错误信息:找不到指定的文件“xxx.dll”(错误 53)”。

    然后换用CodeBlocks+MingW编译,运行正常。

    网上也查了很多方法,也无法解决。

    最后突然想到,是不是目标机器缺少运行库?

    然后网上找VC运行库打包安装到目标机器,果然运行正常。

    因此,更好的解决方案是把用到的运行库函数静态链接到目标程序中(VC默认是动态链接,目标程序不包含运行库函数代码)。

    设置方法:项目--属性页--C/C++ --代码生成--多线程(/MT)


    问题是解决了,但VBA的错误提示迷惑性较大,其中细节有空再深究。

    展开全文
  • 最近一个同学想要写一段VBA代码实现以下功能(我简化了要求):一个表中有很多个excel文件,每个文件有类似的表格,代码实现把每个文件的表格复制另一个excel文件中。折腾开始...... 之前没搞过VBA,我用的是wps抢...
  • vba6.msi vba6文件

    热门讨论 2015-09-07 15:18:51
    提示缺少vba6.msi的时候,用这个就可以了
  • VBA_编译错误 找不到工程和库

    千次阅读 2020-05-16 09:17:00
    工程-引用-把所有的“引用”都去掉,保存整个工程,关闭. 重新打开,再把引用都加上. 前3个引用去掉.

    工程-引用-把所有的“引用”都去掉,保存整个工程,关闭.
    重新打开,再把引用都加上.
    前3个引用去不掉.

    展开全文
  • EXCEL的导入data的功能。(data-> import external data)Sub Macro1() '' Macro1 Macro' test for sunhaifeng' sunhf@cn.ibm.com'If FileExists( "c:\BookforTestData.csv ") ThenKill "c:\Bo...

    EXCEL中的导入data的功能。(data-> import   external   data)

    Sub   Macro1() '

    '   Macro1   Macro

    '   test   for   sunhaifeng

    '   sunhf@cn.ibm.com

    '

    If   FileExists( "c:\BookforTestData.csv ")   Then

    Kill   "c:\BookforTestData.csv "

    End   If

    Workbooks.Add

    With   ActiveSheet.QueryTables.Add(Connection:= "TEXT;E:\test.csv ",   Destination   _

    :=Range( "A1 "))

    .Name   =   "test "

    .FieldNames   =   True

    .RowNumbers   =   False

    .FillAdjacentFormulas   =   False

    .PreserveFormatting   =   True

    .RefreshOnFileOpen   =   False

    .RefreshStyle   =   xlInsertDeleteCells

    .SavePassword   =   False

    .SaveData   =   True

    .AdjustColumnWidth   =   True

    .RefreshPeriod   =   0

    .TextFilePromptOnRefresh   =   False

    .TextFilePlatform   =   932

    '这里我的cvs文件的编码是shift-jis.需要其他编码的代号可以自己录

    .TextFileStartRow   =   1

    .TextFileParseType   =   xlDelimited

    .TextFileTextQualifier   =   xlTextQualifierDoubleQuote

    .TextFileConsecutiveDelimiter   =   False

    .TextFileTabDelimiter   =   True

    .TextFileSemicolonDelimiter   =   False

    .TextFileCommaDelimiter   =   True

    .TextFileSpaceDelimiter   =   False

    .TextFileColumnDataTypes   =   Array(1,   1,   1,   1)

    .TextFileTrailingMinusNumbers   =   True

    .Refresh   BackgroundQuery:=False

    End   With

    ActiveWorkbook.SaveAs   Filename:= "c:\BookforTestData.csv ",   FileFormat:=xlCSV,   _

    CreateBackup:=False

    ActiveWorkbook.Close   SaveChanges:=True

    Dim   MyChar

    Dim   strText   As   String

    Dim   FileNum   As   Integer

    Dim   str()   As   String

    Dim   count   As   Integer

    Dim   count1   As   Integer

    count   =   1

    Open   "c:\BookforTestData.csv "   For   Input   As   #1

    Do   While   Not   EOF(1)

    Line   Input   #1,   strText

    str   =   Split(strText,   ", ")

    count1   =   UBound(str)

    For   i   =   0   To   count1

    Worksheets(1).Cells(i   +   1,   count).Value   =   str(i)

    Next   i

    count   =   count   +   1

    Loop

    Close   #1

    If   FileExists( "c:\BookforTestData.csv ")   Then

    Kill   "c:\BookforTestData.csv "

    End   If

    End   Sub

    Private   Function   FileExists(fname)   As   Boolean

    Dim   x   As   String

    x   =   Dir(fname)

    If   x   <>   " "   Then   FileExists   =   True   _

    Else   FileExists   =   False

    End   Function

    展开全文
  • 生成的文件并直观,看的话很方便,就需要将生成的excel文件中的数据做一下处理,然后放另一个模板excel文件中,如果一条数据一条数据去整理的话会累死人,所以领导让写一个宏程序,也就是用VBA写一个小程序,...
  • 经常遇到有人问需要把多个EXCEL文件一个文件里,我称之为多表合一,并需要合并数据,就是结构上的合并,代码很简单,大家可以根据自己需要随意修改,重点讲一下如何在多个sheet代码筛选出自己需要的表,代码文件请...
  • VBA文件及文件夹操作

    2021-08-12 11:08:39
    VBA文件及文件夹操作1.VBA操作文件及文件夹on error resume next下测试A,在D:\下新建文件夹,命名为folder方法1:MkDir "D:\folder"方法2:Set abc =CreateObject("Scripting.FileSystemObject")abc.CreateFolder...
  • 在企业信息化初期,大部分数据都会通过excel进行管理; 作为IT人员,其实对excel又爱又恨,爱其灵活...现在就分享一个资源,Excel VBA 上传当前sheet的所有内容数据库, 然后通过excle调取数据库的数据进行呈现;
  • 项目开发进行,为了提高工作效率,减少错误率,不得用到VBA去开发些使用的工具【应该感谢excel强大】 其中有一个很重要的应用就是读取某一目录文件 本文分享一个项目写的读取文件夹中文件VBA方法 *****...
  • 使用FileSystemObject访问目录的所有文件>将所有.jpg文件读入数组X.>使用Val比较.jpgs值以按数字升序排序>最终的数组X包含已排序的文件Sub Test()Dim objFSO As ObjectDim objFolder As ObjectDim ...
  • 现象:从linux通过sh生成一个csv文件,该文件的...⇒在access使用原来的文件读取方式,能正确读取。调查:----------------------------------------------------------------------------------原先的读取...
  • 要从文件夹里面删除文件的话,可以使用下面的Kill语句: ...你能删除开启的文件。 Sub RemoveMe() Dim folder As String Dim myFile As String 'assign the name of folder to the folder variable 'notice the .
  • 删除特定路径下的文件时,提示:系统找不到指定的文件,可能是路径含有空格,把路径加上空格即可。 @echo off echo deleting...... del /f /s /q C:\Users\xxx 123\*.xml echo 打完收工! echo. & pause...
  • 把代码Path下的文件复制afterPath目录下 Sub copyFiles(Path As String, afterPath) 'Path:原文件夹路径;afterPath:目标文件夹路径 Dim Spath As String '下边的我自己也不是很理解,但是效果达成是莫得...
  • excel vba 读取 word 指定字符Sub 按钮1()Dim myPath As StringSet Wdapp = CreateObject("Word.Application")Wdapp.Visible = TrueApplication.ScreenUpdating = False '关闭屏幕刷新' On Error Resume Next '...
  • 因为工作需求,要把Excel的数据写入指定的word文件里(用链接的方式经常会出现word无响应的状况,而且数据量大的时候,打开速度实在太慢。),所以就研究了一下如何判断word文件是否被打开的情形。参考了一些...
  • 4、选择菜单栏:插入-模块,将以下代码复制右边的代码框,点击菜单:运行-运行子过程/用户窗体,直到弹出处理完毕对话框; 5、在文件夹中将生成拆分好的文件,可关闭这个EXCEL文件,选择保存。
  • openpyxl找不到文件

    千次阅读 2020-12-24 20:29:36
    我是mac电脑用vscode写的代码test文件放在桌面代码:fromopenpyxlimportload_workbookworkbook=load_workbook('test.xlsx')print(workbook.sheetnames)运行完之后显示这个是为啥呀?我...我是mac电脑用vs code写的...
  • Excel VBA获取选择文件文件名称

    千次阅读 2020-10-20 10:50:20
    '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim i As Integer File = Application.GetOpenFilename("Excel 文件,*.xls;*.xlsx;*.xlsm") '调用Windows打开文件...
  • 在调用SHELL之前,必须要通过以下步骤:(以在E:盘根目录下操作为例)1、强制改变当前的驱动器: ChDrive "E"2、强制改变默认的工作目录:chdir "E:/"完成以上动作之后,再来调用E:/的批处理文件:shell "e:/234....
  • 我是Excel VBA的初学者和新手,但我试图通过连接Excel并可能创建一个有用的宏来自动化FTP(WinSCP)的一些文件共享。 在FTP我去了Session> Generate Session URL / code> Script(脚本文件),下面是代码:...
  • Visual Studio 2010 无法启动程序 系统找不到指定文件 报错 error C2065: “cout”: error C2065: “endl”: 在#include 后添加 using namespace std;
  • 当我运行代码时,它只是将所有文件保存包含的路径(现在因为我知道如何做我上面解释的) .下面是我的代码,我试图合并我可以使用的路径让任何用户选择一个文件夹来保存所有生成的文本文件 .Sub TextFiles()Dim ...
  • VBA-"找不到工程或库" 解决方案

    万次阅读 2013-12-27 11:19:12
    近来,越来越多的朋友被“找不到工程或库”的错误所烦恼,所以决定新开一帖来聊聊此问题! QUOTE: 一般情况下,出现此错误是因为找不到引用工程,或找不到与工程语言对应的引用的对象库 出现此类错误可以根据下面...
  • Excel VBA 利用FileSystemObject处理文件

    千次阅读 2020-10-01 11:18:20
    Excel VBA 利用FileSystemObject类处理文件 FileSystemObject介绍 FileSystemObject是Windows Script Host Object Model对象模型的成员,能够对文件进行方便的基本操作,读取,写入,提取关键字等操作。若与...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 14,777
精华内容 5,910
关键字:

vba中找不到文件

友情链接: stockTransss.zip