C# 创建vba用的类库

Sub SendGetRequest()
    Const url = "https://api.github.com"
    ' 创建http请求对象
    Dim http As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    ' 发送get请求
    http.Open "GET", url, False
    http.Send
    Debug.Print http.ResponseText
End Sub

Sub MainSub()
    Dim obj As Object
    Set obj = CreateObject("ToolLib.ToolCom")
    MsgBox obj.Hello("World")
    MsgBox obj.Add(3, 5)
End Sub

dotnet new classlib -n ToolLib

<Project Sdk="Microsoft.NET.Sdk">
  <PropertyGroup>
	<!-- 推荐用 .NET Framework -->
    <TargetFramework>net48</TargetFramework>
	<!-- 关闭自动注册 -->
    <RegisterForComInterop>false</RegisterForComInterop>
	<!-- 关闭自动生成AssemblyInfo -->
	<GenerateAssemblyInfo>false</GenerateAssemblyInfo>
	<!-- 不输出调试信息 -->
    <DebugType>none</DebugType>
  </PropertyGroup>
</Project>

using System.Runtime.InteropServices;
namespace ToolLib
{
	[ComVisible(true)]
	[Guid("1D4C98EC-D988-4D6C-8DD6-189E238D7B4E")]
	[InterfaceType(ComInterfaceType.InterfaceIsDual)]
	public interface IToolCom
	{
		int Add(int a, int b);
		string Hello(string name);
	}
	[ComVisible(true)]
	[Guid("6143FB0B-9C17-4859-860C-6DA4A466ECD1")]
	// 显示声明ProgId, 便于vba通过 CreateObject("ToolLib.ToolCom") 创建对象
	[ProgId("ToolLib.ToolCom")]
	[ClassInterface(ClassInterfaceType.None)]
	public class ToolCom : IToolCom
	{
		public int Add(int a, int b)
		{
			return a + b;
		}
		public string Hello(string name)
		{
			return $"Hello, {name}";
		}
	}
}

using System.Reflection;
using System.Runtime.InteropServices;
// 文件→属性→详细信息→文件说明
[assembly: AssemblyTitle("ToolLib_Test")]
// vba→工具→引用 时显示的信息
[assembly: AssemblyDescription("FengYeHong VBA COM Library")]
[assembly: AssemblyCompany("FengYeHong-Company")]
// 文件→属性→详细信息→产品名称
[assembly: AssemblyProduct("ToolLib_for_vba")]
// 非常重要
// 类型库 GUID
[assembly: Guid("9F3E7D2C-1234-4A56-8888-ABCDEF123456")]
// 文件→属性→详细信息→产品版本
[assembly: AssemblyVersion("1.0.0.1")]