13518219792
操作背景:asp.net操作Excel 出现问题:在本地添加引用(com):Microsoft Office 11.0 Object Library,并写好程序调试正常,部署到服务器时,出现异常 Excel.Application不是对象. 初步诊断:服务器没有安装Excel组件 第一步尝试解决:对服务器安装Excel等Office组件,进一步测试程序:失败! 第二步尝试解决:将Excel.exe生成Interop.Excel.dll,然后用sdk引用该Dll,编译成功,测试程序:成功! 原因:本地引用的com不会在程序的bin目录生成dll文件,而程序是根据路径在寻找dll的.部署到服务器上时,假如Excel等dll与本地路径不一致,将会抛出异常,定义的Excel对象肯定是不存在的. 具体方法: 1、如何生成Interop.Excel.dll？ 进入你的visual studio的sdk下的bin目录，找到TlbImp.exe文件，如果没有，请用光盘安装此文件，详细说明请参照MSDN。 命令行(cmd)进入bin目录，运行TlbImp /out:Interop.Excel.dll Office安装目录+Excel.exe 此时很可能会报错：TlbImp error: Unable to locate input type library: 'c:\program files\mcrosoft offi ce\office\EXCEL.EXE' 此问题很有可能是TlbImp的bug，不支持空格式的路径；（具体原因不明）不要紧，将Excel.exe拷贝入bin目录，直接运行TlbImp /out:Interop.Excel.dll Excel.exe,提示“Type library imported to Interop.Excel.dll路径” 在bin目录下找到Interop.Excel.dll文件。在你的visual studio里将其引用即可。 2、如果是excel2000或excel2002怎么办？ 如果是Excel2000，则将Excel.exe改成Excel9.olb Excel2002同2003 3、各种版本的引用组件参数如下： 文件/版本 Interop.Excel.dll Interop.Office.dll Interop.VBIDE.dll 添加引用\COM组件 2000 V1.3.0.0 V2.1.0.0 V5.3.0.0 Microsoft Excel 9.0 Object Library(EXCEL9.OLB) 2002(XP) V1.4.0.0 V2.2.0.0 V5.3.0.0 Microsoft Excel 10.0 Object Library(Excel.EXE文件) 2003 V1.5.0.0 V2.3.0.0 V5.3.0.0 Microsoft Excel 11.0 Object Library(Excel.EXE文件
成都创新互联公司主要从事网站设计、网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务安阳县,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792
用Directory.CreateDirectory即可创建文件夹：
' 建立目录
If Not Directory.Exists("C:\负屃\" TextBox1.Text) Then '检查文件夹是否存在
Directory.CreateDirectory("C:\负屃\" TextBox1.Text) '不存在，创建文件建夹
End If
你的例子是因为少了一个"\"引起的，正确的如下：
Dim fsotest As New FileSystemObject
If fsotest.FileExists("C:\负屃\" TextBox1.Text) = False Then
fsotest.CreateFolder("C:\负屃\" TextBox1.Text) '这里你少了一个\
End If
MsgBox("创建成功")
两个方法：
1、Visual Studio，新建项目，最后一个类别就是封装程序用的
我说的是左边的大类(VB.net,C#,J#那些的最后一个)，不是右边的子类
2、LS说的方法虽然可以，但是一般不是用debug，要用release版本！调试程序的地方会有debug,release两个选择，正式使用要用release!
但是LZ要注意，dotNet开发的程序，离开了FrameWork就基本不能运行，所以你拿到别的机器用，先确认安装了Framework！如果你用第一种方法，那么会自动监测系统是不是装了Framework；第二种方法的话，没有Framework程序是直接报错！
有3种方法：
1. 用.NET自己的封装工具封装（不太好用）
2. 网上找InstallShield封装软件（破解的不好找，也不太好用）
3. 最简单的，网上搜SetupFactory 8， 非常好用，我就用他
''' summary
''' 封装后的方法
''' /summary
''' param name="str"传入参数/param
''' returns/returns
Public Function z(ByVal str As String)
Dim zz As String = Nothing
Dim reg As New Regex("Found valid key:\[ffffffffffff\][\d\D]*?--sector:\s*(\d+)")
Dim m As Match = reg.Match(str)
If m.Success Then
zz = m.Groups(1).ToString
End If
Return zz
End Function
''调用示例
Dim zz As String = z(Form1.prompt.Text)
