excel2010封装exe(vb封装excel)

1. vb封装excel

Sub Macro1() Sheets.Select Sheets.Copy End Sub

2. vb封装excel dll事件

如果熟悉LABVIEW或者有其他困难必须用LV，那就用这方法，但他生成DLL脱离不了环境，。

3. vb封装access

连接字符串：

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword;

4. vb封装exe

你是用excel自带的VBA编写的吧，可以下载一个VB6.0，把代码移植过去，就可发布.exe

5. vb封装dll

1、第一步新建项目

2、第二步,新建项目后,在窗体添加一个按钮Button和两个富文本框RichTextBox

3、第三步,VS->工具->NuGet包管理器->管理解决方案的NuGet 程序包->浏览->搜索（Newtonsoft）->安装第1个即可

4、第四步,在项目引用里面找到Newtonsoft引用然后把属性“复制到本地改为False”

5、第五步,在项目上面右击鼠标打开项目属性

6、第六步,在项目属性->资源->添加资源->添加现有文件；然后在项目目录packages->Newtonsoft.Json.13.0.1->lib->net45(根据项目框架选择)->Newtonsoft.Json.dll选择对应的dll文件添加到资源里面

7、第七步,编写测试代码

添加要格式化的json字符串

{“status”:1,“totalcount”:2,“list”:[{“id”:“2305b1e2-4e31-4fd3-8eb6-db57641914df”,“code”:“8147056167227050270”,“title”:“testing”,“type”:“产品”,“status”:“已处理”,“datetime”:“2014-07-12T21:16:46”,“replycontent”:“好的，只是测试”},

{“id”:“3a6546f6-49a7-4a17-b679-b3812b12b27e”,“code”:“8147056167227050269”,“title”:“我建议龙头有多种选配方式”,“type”:“产品”,“status”:“未处理”,“datetime”:“2014-07-12T18:49:08.933”,“replycontent”:""},

{“id”:“f735e461-ca72-4b44-8d7b-cd97ac09802f”,“code”:“8147056167227050268”,“title”:“这个产品不怎么好，不好用”,“type”:“产品”,“status”:“未处理”,“datetime”:“2014-07-12T15:06:19.1”,“replycontent”:""},

{“id”:“15926d9d-f469-4921-b01d-4b48ef8bd93d”,“code”:“7141054273018032465”,“title”:“jdjbcn”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T01:03:46.477”,“replycontent”:""},

{“id”:“1debf78f-42b3-4037-b71f-34075eed92bc”,“code”:“4141051277003536211”,“title”:“jdjbxn.x”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T00:53:21.18”,“replycontent”:""},

{“id”:“27593c52-b327-4557-8106-b9156df53909”,“code”:“1143051276001357050”,“title”:“ghggghh”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T00:35:05.933”,“replycontent”:""},

{“id”:“040198fc-b466-46c1-89d8-0514fbde9480”,“code”:“4142053251166372433”,“title”:“你好，你知道啦，我不喜欢白色浴缸”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-25T16:37:43.853”,“replycontent”:""},

{“id”:“16185418-d461-4e98-83c3-824eb7e344d6”,“code”:“4145058213013197148”,“title”:“hdjbchh”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-21T01:19:14.903”,“replycontent”:""},

{“id”:“6c043404-c1db-42e8-adeb-d4880fa7d1b5”,“code”:“0142051185128085372”,“title”:“ghhjdhd”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-18T12:08:37.997”,“replycontent”:""},

{“id”:“2dca1a38-a32b-4955-a99c-2ed7d6de60fa”,“code”:“3146050186122030382”,“title”:“hsibcn”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-18T12:03:38.913”,“replycontent”:""}]}

json格式化vb代码

''' <summary>

''' 格式化JSON字符串

''' </summary>

''' <param name="str"></param>

''' <returns></returns>

Private Function ConvertJsonString(str As String) As String

Dim serializer As New JsonSerializer()

Dim tr As TextReader = New StringReader(str)

Dim jtr As New JsonTextReader(tr)

Dim obj As Object = serializer.Deserialize(jtr)

If obj IsNot Nothing Then

Dim textWriter As New StringWriter()

Dim jsonWriter As New JsonTextWriter(textWriter) With {

.Formatting = Formatting.Indented,

.Indentation = 4,

.IndentChar = " "c

}

serializer.Serialize(jsonWriter, obj)

Return textWriter.ToString()

Else

Return str

End If

End Function

8、第八步,加载资源中DLL代码重点来咯

Public Sub New()

''加载DLL到exe的事件

AddHandler AppDomain.CurrentDomain.AssemblyResolve, New ResolveEventHandler(AddressOf CurrentDomain_AssemblyResolve)

InitializeComponent()

End Sub

''' <summary>

''' 把DLL加载到EXE中

''' </summary>

''' <param name="sender"></param>

''' <param name="args"></param>

''' <returns></returns>

Private Function CurrentDomain_AssemblyResolve(sender As Object, args As ResolveEventArgs) As System.Reflection.Assembly

Dim dllName As String = If(args.Name.Contains(","), args.Name.Substring(0, args.Name.IndexOf(","c)), args.Name.Replace(".dll", ""))

dllName = dllName.Replace(".", "_")

If dllName.EndsWith("_resources") Then

Return Nothing

End If

Dim rm As New System.Resources.ResourceManager([GetType].Namespace & ".Resources", System.Reflection.Assembly.GetExecutingAssembly())

Dim bytes As Byte() = DirectCast(rm.GetObject(dllName), Byte())

Return System.Reflection.Assembly.Load(bytes)

End Function

9、完整实现代码

6. vb封装成exe文件

组建生成出来的扩展名为“.exe”的可执行程序；

7. vb封装成dll文件

VisualBasicEnvironmentInternationalResources。VB6CHS.DLL是VB的中文语言包的动态链接库文件

8. vb封装成dll文件字符串参数问题

1.对ActiveXDLL，如果该DLL由本地VB/VC生成就可直接在新的VB工程中引用，拷来的就需要先注册该DLL(记得是regsrv:)。

引用方法:

点击“工程”-〉“引用”找到后打勾就可在程序中直接调用其函数了。

2.其它非ActiveXDLL，如WINDOWSAPI函数，只要用Declare声明一下就可用了。

9. vb封装自定义函数

VB6.0与VB.net在语法上是相似的，VB.net是微软后续开发的编程语言，与VB6.0最大的区别是完全的面向对象，而VB6.0是属于面向过程的。VB6.0简单易用，但是微软已经在2008年宣布不再继续提供支持，是已经淘汰的编程语言了，但是对于非专业的程序员，依然可以在Win7上进行程序开发。Vb.net比起Vb6.0有以下优劣势：VB.NET是完全面向对象和后现代化的语言(JAVA独具的新概念) VB.NET是自由线程语言 VB.NET的运行速度比VB6要快 VB.NET从语法上来说更加紧凑和具有规律性 VB.NET开放了界面设计代码 VB.NET可以更好地集成微软的新产品和新技术 VB.NET拥有更加强大附属组件 VB.NET拥有移动开发的能力 VB.NET封装的类功能强大，不需要额外使用API VB.NET的开发环境更加紧密与集成化，与同类语言(如C#)连接更紧密 VB.NET目前还受到微软的更新和支持 VB.NET必须运行在.NET的虚拟机上 VB.NET要更加难学