用VS2017制作EXCELAddin交流贴

zhangxueliang

1. <blockquote>Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click

复制代码

以上代码是点击文本框，能选择EXCEL中的任意单元格，并且返回该单元格的地址

1. 
   
2.     Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
   
3.         If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
   
4.             TextBox1.Text = FolderBrowserDialog1.SelectedPath
   
5. 
   
6.             TextBox1.SelectionStart = TextBox1.Text.Length
   
7.             Dim FileNames() As String
   
8.             FileNames = Directory.GetFiles(TextBox1.Text)
   
9.             For i As Integer = 0 To FileNames.Length - 1
   
10.                 ListBox1.Items.Add(Path.GetFileName(FileNames(i)))
    
11.             Next
    
12.         End If
    
13.     End Sub

复制代码

以上代码是点击Textbox1文本框，返回路径




http://club.excelhome.net/thread-1335976-1-1.html

zhangxueliang

TextBox2_Click

1. Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
   
2.         On Error Resume Next
   
3.         Me.Hide()
   
4.         Dim xlapp As Excel.Application
   
5.         'REM 获取数据区域DataRange
   
6.         xlapp = Globals.ThisAddIn.Application
   
7.         Dim DataRange As Object
   
8.         DataRange = xlapp.InputBox("选择数据区域"， "选择数据", Type:=8)
   
9. 
   
10. 
    
11.         If Not DataRange Is Nothing Then
    
12.             TextBox2.Text = DataRange.Parent.Name & "!" & Convert.ToString(DataRange.Address)
    
13.         Else
    
14.             TextBox2.Text = ""
    
15.         End If
    
16.         Me.Show()
    
17.         On Error GoTo 0
    
18.     End Sub

复制代码

zhangxueliang

附件EXCEL Addin是VS2017 源代码
1120文件夹内是一个EXCEL VBA文件，提取离线HTML文件的相关数据http://club.excelhome.net/thread-1294564-1-1.html

现在需要将代码移植到vb.net中，或者重新写一份代码

点击确认，能获取左侧listbox文件筐内的html文件相关数据

lujkhua

版本太高！

minren118

建议一步到位学C#语言开发VSTO，大神们都用C#，有问题也好交流，VB.net很少人使用。
VSTO的学习个人感觉QQ群还比较活跃些，可以加相关的VSTOQQ群学习。
本人最近也新开一关于VSTO方法的QQ群，有兴趣可以加入一起学习，QQ群名字：Excel催化剂插件交流群，群号：600275142

码农熊

建议.net 里就不要用 “ On Error Resume Next” 了
不是有try吗？