Tag: vb.net

如何popup保存或打开文件VB.Net: 我的目标是试图popup保存或打开已经创build的文件的选项。这是我的代码： Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value xlApp = New Excel.ApplicationClass xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = CType(xlWorkBook.Sheets("sheet1"), Excel.Worksheet) xlWorkSheet.Cells(1, 1) = "PERIOD" xlWorkSheet.Cells(1, 2) = "PARTS_NO_FG" xlWorkSheet.Cells(1, 3) = "QTY_ASSY" xlWorkSheet.Cells(1, 4) = "COSTING1" xlWorkSheet.Cells(2, 1) = "201212" xlWorkSheet.Cells(2, 2) = "01125E6041" […]

在asp.net中从excel中读取数据: 我想在一个文本框中读取整个excel表单的数据。这可能吗？我知道从Excel中读取单元格数据到文本框的代码。 PrivateSub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click Dim xlaTest As Excel.Application = CType(CreateObject("Excel.Application"), Excel.Application) xlaTest.Visible = True Dim wbkTest As Excel.Workbook = xlaTest.Workbooks.Open("D:\Tests\VBTrials\ExcelTests\TestWorkbook.xls") Dim wshTest As Excel.Worksheet = DirectCast(wbkTest.Worksheets("Sheet1"), Excel.Worksheet) TextBox1.Text = wshTest.Range("B2").Value wbkTest.Close() xlaTest.Quit() EndSub

尝试做一个select。换一个xlUp: 所以我正在尝试到一个可变范围查找并replace我填充空白空间的空白行插入行，我拖下来。所有我需要的是帮助修复我的xlUp，使其与selection.replace一起工作。 Sub ReplaceBlanks() Dim LR As Long Set LR = Range("A2:R" & Cells(Rows.Count, 1).End(xlUp).row) Range(LR).Select Selection.Replace What:="", Replacement:="Blank", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub 我忘了添加错误，它的“编译错误：对象需要”我在今年夏天的实习中与excel工作很多，我期待着对这个东西更加了解。我感谢您的帮助！

在excel中查找date范围内的值: 请帮忙。我们有两张桌子。一个帐户列表，另一个是更改日志。我需要在表1中添加一个新的列，其中的值是表2中对于正确帐户的金额和正确的有效期。恩。表格1：帐号＃开始期间结束期间 2012年1月1日2012年1月31日 2012年1月2日2012年2月12日表2：账号＃有效期限请求有效期末 2010年1月10日，2010年12月5日 1 2010年12月20日，2010年6月1日 1 2011年6月30日，2011年12月1日 2 2011年1月15日，2011年12月15日 2 2011年12月20日，2011年2月20日谢谢。

VB的Excel的拖动公式为可变的行数: 我有一个Excel表格，我正在使用VB程序填充。输出表可以具有可变数量的行，但是具有6列（A：F）。现在我想让列G具有列A中所有行的hex值。下面是一个例子：说列A有400行（A1：A400），那么我想让G1：G400的值为HEX2DEC（A1：A400）。但这只是一个例子，行可以变化。到目前为止，我有这个代码： Sub DataMod() Dim i As Long, R3 As Long R3 = 1 For i = 1 To sheet.UsedRange.Rows.Count sheet.Cells(i, 7).Formula = "=HEX2DEC" & sheet.Cells(R3, 1) R3 = R3 + 1 Next i End Sub 但它不工作。

Vb.net更新与其他工作簿的引用的Excel公式: 我正在尝试从一个工作簿更新一些公式到另一个工作簿。一切都运作良好，直到我碰到一个公式，有一个参考另一个工作簿。例如，像这样的公式=IF(ISERROR(W!Var1),0,W!Var2)它会提示我打开这个工作簿，我假设它可以评估公式。所以我的问题是这个。有没有办法让我在飞行中处理这些情况，所以如果有工作簿参考需要它会提示我，然后将其保存到内存？因为如果我有多个包含这些公式的单元格，它会提示我为包含链接的每个单元格打开引用的工作簿。或者，有没有一种方法可以将我的公式推入细胞，而无需进行评估？所以在我的代码中，我有这一行适用于任何不包含工作簿引用的值。 TheRange.RefersToRange.FormulaR1C1 = RangeFormula 任何帮助是极大的赞赏。

如何使用VB.net代码指定Excel文件的页眉和页脚？: 我可以使用VB.net代码来指定单元格值，如下所示： xlWorkSheet.Range("A1").Value = "Results" 我如何指定excel工作表的页眉和页脚？

访问数组中的值并显示在combobox中: 这远远超出了我的技能，坦率地说，我从来没有做过这样的事情，不知道是否有可能。下面的过程根据B6列的值构build一个数组。 Private Sub dsbPositionBoard_Startup() Handles Me.Startup 'This event runs when the dsbPositionBoard starts. The procedure 'checks for the values in column A of the allPositionsAnualized sheet 'and populates the combobox with those values. If there are no values the box 'is disabled. Dim xlRng As Excel.Range Dim strRngArr As String Dim strChkRange As String […]

在VB6 / VB.NET中显示Excel表格，使用不带excel菜单的Excel: 我有一个启用了macros的Excel工作表。我想显示Excel工作表里面一个VB6 / VB.NET表单没有Excel菜单标题，并执行表格内的Excel活动。请注意，我需要执行一些macros操作时，input一些单元格… 我的目标是创build一个独立的VB6 / VB.Net窗体，其中应显示excel单元格以执行marco操作。我试图寻找任何样本，但没有运气。应该是这样的… 任何人都可以提示我做到这一点？

过程打开Excel的多个实例: 我编写了以下过程来检查Microsoft Excel应用程序是否已打开。该过程工作正常，除了一旦打开工作簿并激活工作表，Excel的第二个实例尝试打开。这是我的代码： Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlWBName As String = "2011.1004.Compensation Template" For Each p As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses() If p.ProcessName <> "EXCEL" Then xlApp.Visible = True xlBook = xlApp.Workbooks.Open("F:\Test Environment\Compensation Workbook\Compensation Workbook\bin\Debug\" & xlWBName & ".xlsx") Dim xlSheet As Excel.Worksheet xlSheet = CType(xlBook.Sheets("SummaryWorksheet"), Worksheet) xlSheet.Activate() End […]