VSTO入门问题集

VBA万岁

excelhomesnake 发表于 2016-1-15 22:06
建议你可以尝试一下写自己的功能类库,封装常用的功能,尽可能不要把逻辑都直接写在控件的关联方法上.
可 ...

当我有一定的C#基础之后，我会慢慢去尝试的......

VBA万岁

VBA万岁 发表于 2016-1-15 21:44
制作测试源码如下：

效果截图：

VBA万岁

VBA万岁 发表于 2016-1-16 15:16
效果截图：

稍作更新：

VBA万岁

VBA万岁 发表于 2016-1-17 17:02
稍作更新：

源码： ExcelHelpTaskPane.rar (722.53 KB, 下载次数: 30)

2016-1-17 17:04 上传

点击文件名下载附件

VBA万岁

VBA万岁 发表于 2016-1-17 17:04
源码：

comboBox5_SelectedIndexChanged代码中的：
var res = doc.DocumentNode.SelectSingleNode(@"/html[1]/body[1]/div[1]/div[6]/div[1]/div[1]/div[3]/dl[" + comboBox5.SelectedIndex +1 + "]/dd[1]");
需改为（加括号）：
var res = doc.DocumentNode.SelectSingleNode(@"/html[1]/body[1]/div[1]/div[6]/div[1]/div[1]/div[3]/dl[" + (comboBox5.SelectedIndex +1) + "]/dd[1]");

VBA万岁

VBA万岁 发表于 2016-1-15 09:57
VBA获取农历、星座、宜忌的代码稍作更改：

获取省、地市的代稍作更改：
Private Sub UserForm_Initialize()
Dim url, html, b, a, n
ComboBox1.Clear
url = "http://www.tianqihoubao.com/lishi/"
Set html = CreateObject("htmlfile")
With CreateObject("msxml2.xmlhttp")
    .Open "get", url, False
    .send
    html.body.innerhtml = StrConv(.responseBody, vbUnicode, &H804)
    For Each b In html.all.tags("b")
        n = n + 1
        ComboBox1.AddItem b.innertext
        ComboBox1.List(n - 1, 1) = Replace(Replace(b.parentElement.href, "about:/lishi/", ""), ".htm", "") & ";"
        For Each a In b.parentElement.parentElement.parentElement.ChildNodes(1).all.tags("a")
            ComboBox1.List(n - 1, 1) = ComboBox1.List(n - 1, 1) & ":" & a.innertext
        Next
    Next
End With
ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
Dim url, html, b, a, n, t
ComboBox2.Clear
ComboBox3.Clear
url = Replace("http://www.tianqihoubao.com/lishi/代码.htm", "代码", Split(ComboBox1.List(ComboBox1.ListIndex, 1), ";")(0))
Set html = CreateObject("htmlfile")
Set html = CreateObject("htmlfile")
With CreateObject("msxml2.xmlhttp")
    .Open "get", url, False
    .send
    html.body.innerhtml = StrConv(.responseBody, vbUnicode, &H804)
    For Each b In html.all.tags("b")
        n = n + 1
        t = ""
        'ComboBox2.AddItem b.innertext '因显示的是乱码，所以改用如下或拼音
        ComboBox2.AddItem Split(ComboBox1.List(ComboBox1.ListIndex, 1), ":")(n)
        'ComboBox2.AddItem Replace(Replace(b.parentElement.href, "about:/lishi/", ""), ".html", "") '改用拼音
        For Each a In b.parentElement.parentElement.parentElement.ChildNodes(1).all.tags("a")
            't = t & a.innertext & "," '因显示的是乱码，所以改用拼音
            t = t & Replace(Replace(a.href, "about:/lishi/", ""), ".html", "") & ","
        Next
        ComboBox2.List(n - 1, 1) = t
    Next
End With
ComboBox2.ListIndex = 0
End Sub

VBA万岁

VBA万岁 发表于 2016-1-14 15:57
顺便附上对网页源码按指定的网页标签进行分行（有些网页源码复制到工作表后是没有分行的文本）以便于对源 ...

对网页源码按指定的网页标签进行分行的VBA代码为：

1. Sub 源数据分行(control As IRibbonControl)
   
2. On Error Resume Next
   
3. Dim r, t
   
4. s = InputBox("请输入标签号，如：<a、<b、<div、...<table...", "输入标签号", "<div")
   
5. s = IIf(s = "", "<body", s)
   
6. s2 = IIf(s = "", "<body", Replace(s, "<", "</"))
   
7. For Each t In Split(ActiveCell.Text, "    ") '第一层循环按空行（4个空格）分行
   
8.     r = r + 1
   
9.     ActiveCell.Offset(r) = Split(t, s)(0)
   
10.     For r2 = 1 To UBound(Split(t, s)) '第二层循环按指定标签的起始标签分行
    
11.         r = r + 1
    
12.         ActiveCell.Offset(r) = s & Split(Split(t, s)(r2), s2)(0)
    
13.         For r3 = 1 To UBound(Split(t, s2)) '第三层循环按指定标签的结束标签分行
    
14.             r = r + 1
    
15.             ActiveCell.Offset(r) = s2 & Split(Split(t, s)(r2), s2)(r3)
    
16.         Next
    
17.     Next
    
18. Next
    
19. End Sub

复制代码

VBA万岁

VBA万岁 发表于 2016-1-20 11:02
对网页源码按指定的网页标签进行分行的VBA代码为：

（三）C#如何利InputBox函数对网页源码按标签名称进行分行？

        ——227楼的VBA代码中有一个InputBox函数，在C#中实现替代该函数的功能有两种方法：一是调用VB里的InputBox；二是编写自定义类。但VBA中的InputBox函数不仅可以输入文本，而且还可以实现工作表区域的引用。想知道C#中上述两种方法如何实现类似InputBox函数的功能（包括输入文本以及引用区域）？

VBA万岁

VBA万岁 发表于 2016-1-20 11:22
（三）C#如何利InputBox函数对网页源码按标签名称进行分行？

        ——227楼的VBA代码中有一个Inpu ...

百度到以下帖子，均只能实现InputBox函数的输入文本的功能：
1、C#中的InputBox
2、C#输入框InputBox问题 .
3、在c#中 使用inputbox的几个问题
4、在C#中实现InputBox

excelhomesnake

VBA万岁 发表于 2016-1-20 11:22
（三）C#如何利InputBox函数对网页源码按标签名称进行分行？

        ——227楼的VBA代码中有一个Inpu ...

你所说的vba的InputBox函数,实际是钩住excel的事件来得到所选区域..net中是很容易做到的.这是与委托相关的知识.在vsto中,可以直接使用你说的vba的InputBox方法.