VSTO入门问题集

VBA万岁 · 发表于 2016-1-21 15:16

excelhomesnake 发表于 2016-1-21 12:48
你所说的vba的InputBox函数,实际是钩住excel的事件来得到所选区域..net中是很容易做到的.这是与委托相关 ...

你是说调用VB里的InputBox吗？

excelhomesnake · 发表于 2016-1-21 15:23

本帖最后由 excelhomesnake 于 2016-1-21 15:26 编辑

VBA万岁发表于 2016-1-21 15:16
你是说调用VB里的InputBox吗？

不是,excel宿主一样有inputbox方法的.上图的第一个红框.

VBA万岁 · 发表于 2016-1-21 17:17

本帖最后由 VBA万岁于 2016-1-21 17:30 编辑

excelhomesnake 发表于 2016-1-21 15:23
不是,excel宿主一样有inputbox方法的.上图的第一个红框.

这个截图所显示的内容是VSTO项目吗？在哪里啊？VSTO2010的“Excel2010 Add-in”项目中有inputbox方法吗？

VBA万岁 · 发表于 2016-1-21 17:20

VBA万岁发表于 2016-1-21 17:17
这个截图所显示的内容是VSTO项目吗？在哪里啊？

excelhomesnake · 发表于 2016-1-21 18:52

VBA万岁发表于 2016-1-21 17:17
这个截图所显示的内容是VSTO项目吗？在哪里啊？VSTO2010的“Excel2010 Add-in”项目中有inputbox方法吗 ...

是vsto的项目.add in项目是一样可以通过global来获取add in所在的application宿主的.

VBA万岁 · 发表于 2016-1-22 08:54

excelhomesnake 发表于 2016-1-21 18:52
是vsto的项目.add in项目是一样可以通过global来获取add in所在的application宿主的.

有空我测试看看。

VBA万岁 · 发表于 2016-1-22 22:13

VBA万岁发表于 2016-1-22 08:54
有空我测试看看。

测试成功，主要代码如下：

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Text.RegularExpressions;//用于button1_Click的代码引用正则Regex.Split
namespace ExcelHelpTaskPane
{
public partial class Form6 : Form
{
public Form6()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
Microsoft.Office.Interop.Excel.Range cel = Globals.ThisAddIn.Application.ActiveCell;
try
{
//string s = Globals.ThisAddIn.Application.InputBox("", Type: 8);
string s = Globals.ThisAddIn.Application.InputBox("", "", "<a、<b、<div、...<table...");
String s2 = "";
if (s != null)
{
s2 = s.Replace("<", "</");
}
else
{
s2 = "<body";
s = "<body";
}
int r = 0;
foreach (var t in Regex.Split(cel.Text, " "))
{
r = r + 1;
cel.Cells[r, 1].Value = Regex.Split(t, s)[0];
int r2 = 0;
foreach (var t2 in Regex.Split(t, s))
{
r2 = r2 + 1;
if (r2 > 1)
{
r = r + 1;
cel.Cells[r, 1].Value = s + Regex.Split(t2, s2)[0];
int r3 = 0;
foreach (var t3 in Regex.Split(t2, s2))
{
r3 = r3 + 1;
if (r3 > 1)
{
r = r + 1;
cel.Cells[r, 1].Value = s2 + t3;
}
}
}
}
}
}
catch (Exception exception)
{
MessageBox.Show(exception.Message);
}
}
}
}

复制代码

VBA万岁 · 发表于 2016-1-23 13:02

VBA万岁发表于 2016-1-22 22:13
测试成功，主要代码如下：

应用InputBox函数引用单元格区域的实例见如下帖子的8~9楼：
C#汉字转拼音

VBA万岁 · 发表于 2016-1-23 13:13

VBA万岁发表于 2016-1-23 13:02
应用InputBox函数引用单元格区域的实例见如下帖子的8~9楼：
C#汉字转拼音

测试制作源码如附件：

		自动登录	找回密码
密码			免费注册

[求助] VSTO入门问题集