从编程源代码构建一个XLA

我有一个VBA插件的出口组件的(版本控制)的文件夹(比如,有很多CLS,FRM,FRX,BAS txt文件)。 有人可以给我一个构建脚本(可以是VB脚本,或一些更复杂的),它这个文件夹的名称,并产生一个(工作)XLA?

我知道你可以编程修改XLA文件(如这一问题),所以它应该不会太难写,创建一个空的XLA一个脚本,然后遍历所有文件夹中,将其添加到它...?

谢谢,

缺口

(编辑:Excel 2003中,如果这有什么差别)

--------------解决方案-------------

我用一个很简单的VBA宏的Excel工作簿内基本上做同样的事情,只是我没有任何的形式,和我有格式的文本文件中的某些单元测试的信息。 由于VBA是非常相似的VBScript和下面的代码使用的文件系统和Excel对象模型的东西,应可为VBScript,也许这将是对你有用。

这是从一个模块的.bas的摘录。 我把它在一个空白工作簿,然后滴在任何目录簿是在我的文本文件,然后运行导入。 它应该是很容易重新利用它一些更正式的,无论是外接的目标不同,新创建的工作簿或做Excel的整体构建之外的脚本:

'...

Private fs_ As FileSystemObject

'...

Private Sub import_()
On Error GoTo EH

Set fs_ = New FileSystemObject

Call importTests_(Application.ThisWorkbook, Application.ThisWorkbook.path)
Call importCode_(Application.ThisWorkbook, Application.ThisWorkbook.path)

Exit Sub

EH:
Debug.Print "Error in import_: " & Err.Number
End Sub

'...
'stuff about importing tests ignored...
'...

Private Sub importCode_(wbk As Workbook, folderName As String)
Dim folderObj As Folder
Set folderObj = fs_.GetFolder(folderName)

Dim fileExt As String

Dim fileObj As File
For Each fileObj In folderObj.Files
fileExt = fs_.GetExtensionName(fileObj.name)

If fileExt = "bas" Or fileExt = "cls" Then
Call wbk.VBProject.VBComponents.Import(fileObj.path)
End If
Next fileObj
End Sub

'...

我不知道是什么的问题是与进口的形式,因为我从来没有使用他们在Excel中。

分类:高强 时间:2012-01-01 人气:0
分享到:

相关文章

  • Excel 2010中VBA变量的作用域 2012-03-18

    我有许多子程序和一些功能的Excel 2010中VBA应用程序. 此应用程序具有文本框,命令按钮等形式设置查询收集,存储,绘图数据,等等. 我想声明,对子程序和函数访问的几个模块全局参数. 我已阅读各种书籍和网站讨论这一点,但一直没能做到这一点. 只要所有程序都是在单一模块中,我可以做到. 但不能与多个模块. 我的应用程序是非常复杂,这将是很难让所有程序一个模块英寸 我曾在网上讨论读取全局变量不在本地窗口可见,但只有在观察窗口. 有人可以提供一些关于如何成功地做到这一点,并有知名度排查和调试建议

  • 在Excel 2007中VBA Kill语句 2012-04-27

    在Excel 2007中VBA Kill语句不删档的.xlsx然而,.xls文件(在Excel 2003中创建)由Kill语句将被删除. 有没有一种解决方法或解决方案? --------------解决方案------------- 嗨, 杀工作正常E2007这样的 杀"F:\测试\ Test.xlsx" 同意...杀死正常工作......我的代码: 在错误恢复下一页 杀"F:\测试\ Test.xlsx" 在我的测试,文件'Test.xlsx"已经打开,

  • 这是MS Excel 2007中VBA的错误:(格式化数据作为文本DD / MM / YY的腐败,开辟为MM / DD / YY天1到12各月)Workbooks.Open 2012-10-25

    我的电脑区域设置是短日期格式= DD / MM / YY. 那么,为什么Excel 2007中VBA宏打开包含DD / MM / YY格式的日期逗号分隔的文本文件,然后分析他们为MM / DD / YY,直到它(本月12日之后)变得不可行,然后恢复到将军? 在这一过程中它搞砸了的数据,每个月的第12天! 我试过Workbooks.Open和Workbooks.OpenText方法,并得到同样的结果. 导入数据工程确定,但我想如果可能打开该文件,并了解这是怎么回事'幕后'. 有什么我可以在VBA或

  • Excel 2010中VBA错误,设置轴(xCategory)字体名称和大小。 2012-11-07

    我发现我的想法是在Excel 2010中VBA的错误. 我下面记录使用下面的宏录制设置X轴的字体大小和名称的代码. 字体名称和大小的设置在标准的Excel工作. 不过,我一直无法重用的代码VBA子程序. 我可以用同样的方法设置是xValue轴. 对这个问题或替代方法的任何建议. 谢谢. ActiveChart.Axes(xlCategory).选择 随着Selection.Format.TextFrame2.TextRange.Font .BaselineOffset = 0 .Size = 1

  • 如何插入符号在Excel 2010中VBA 2013-06-30

    如何插入符号在Excel 2010中VBA 手动操作 范围("A1").价值="HELLOWORD" 双击范围("A1"),移动光标在合适的位置(例如:"e"和"L"之间) 插入选项卡 - >符号,显示符号对话框 选择一个符号(例如:smybol:80) 单击插入按钮 点击取消按钮 使用VBA,如何完成第2步由第5步点击一个按钮 --------------解决方案------------- 你想宏插

  • 转换Excel 2000中VBA宏到Excel 2007 2014-03-08

    需要帮助的直方图类型的图表格式中的数据点. 在30 1的宏名作总计意见. 是名作前周或数周后点. 图绘制根据信息1至30条,然后它们的颜色如下: 棒材"前两周"是绿色的. 为"周"酒吧是红色的. 一个"平均"的所有观测有它的酒吧设置为黑色. 在Excel 2000中使用的代码与下面的语句循环; HCHART.SeriesCollection(1).Points(CNT1).Interior.ColorIndex = WT.Cells(RT1,30

  • Excel 2007中VBA另存为创建文件,但没有内容 2012-05-29

    你好 我有发生的一台计算机,而不是其他的一个奇怪的问题. 在Excel 2007中我有一个工作表Sheet1文件XLSM复制数据,将其粘贴到Sheet2,然后保存为CSV. 这里的目标是创建CSV格式的新文件,以仅Sheet 2中的内容. 一切正常我的电脑上. 在一个客户PC,他没有收到一个错误,但文件是空的. 因此,换句话说,他曾在正确的目录中的文件与正确的文件名,但记录是不存在的. 没有数据. 如果您在记事本中打开它没有什么待观察. 谁能想到哪里开始解决此问题? 就像我说的,没有错误. 我亲

  • Excel 2010中VBA打开Word 2010文档文件 2013-07-31

    嗨, 我试图打开从Excel中VBA按钮,我在Office 2003中使用的代码下面是一个Word文件中. 当我使用这个代码,我得到一个编译错误:不定义用户定义的类型. 我运行Windows 7专业版和Office 2010. 感谢杰夫 子Button39_Click() 昏暗OBJFILE作为文档 昏暗strSelection作为选择 昏暗objDocs作为文件 昏暗strTemplate作为字符串 昏暗的FSO "检查需要的文件 FSO设置=的CreateObject("Scrip

  • Excel 2007中VBA帮助文件是不工作... 2012-01-22

    我使用Excel 2007中出于某种原因,我不能在VBA获得帮助. 我下载了最新的帮助文件,但我告诉它已经被安装/怎么办?

  • Excel 2010中VBA更新特定图 2012-07-02

    我在Excel 2010中工作表有在纸张上的六个图形. 我工作的VBA只是编辑的最后一个图(第六个). 我认为这个代码的工作,但它正在编辑第二张图,而不是下降: 暗淡usrnumb为字节 usrnumb = 10 表("图").ChartObjects(6).Activate ActiveChart.SeriesCollection(1).Values​​ ="= $ NewYrData BF $ 3:$ BF $"及(3 + usrnumb) 我应该做不同? --

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 1.489 (s). 10 q(s)