Tag: excel 2010

打印时将行设置为重复 – 打开XML和Excel: 我试图得到一个xlsx文件的前4行，在打印时在每个页面的顶部重复。我正在使用Open XML SDK来完成此操作。我的文件正在由SSRS执行Web服务生成为文件stream。然后，我需要修改几个布局和页面设置（页边距，页面大小，缩放等），然后将文件传递给用户，因为我的用户有很小的Excel敏锐度。我需要调整的所有其他设置工作正常，所以我已经从这个例子中删除了所有的代码。当尝试使用下面的代码设置重复页面标题时，它会执行没有错误。但是，当我尝试执行代码后打开文件，我得到一个损坏的文件消息，它不会打开。任何想法我在这里做错了吗？！这让我疯狂！ using (SpreadsheetDocument xl = SpreadsheetDocument.Open("C:\\" + filename, true)) { WorkbookPart wbp = xl.WorkbookPart; //—————————————– // repeat rows at top when printing //—————————————– DefinedNames dn = new DefinedNames(); wbp.Workbook.Append(dn); wbp.Workbook.Save(); DefinedNames definedNames = wbp.Workbook.Descendants<DefinedNames>().FirstOrDefault(); DefinedName n1 = new DefinedName() { Name = "_xlnm.Print_Titles", LocalSheetId = […]

Can Line系列可以绘制为半实线，半虚线？: 在Excel表格中包含了一个图表，它是绑定另一个表格中的数据的。图表系列都是线条系列。我需要一半线条系列作为实线，另一半作为虚线。这可以通过手动拾取点改变线条样式，这是不是我需要的方式，我需要的方式是从VBA代码可以做我们喜欢半实线和另一个虚线。上面的图像，我需要从vba代码做到这一点。我有search我的网站，并应用提供的解决scheme，但这些应用。提供的任何解决scheme非常感谢。

在Excel 2010中计算百分位数: 这是我的下面的列表。我试图计算95％的电话回来多less毫秒。 Milliseconds Number of Calls 45 14 46 33 47 40 48 41 49 83 50 114 51 124 52 82 53 89 54 99 55 82 56 72 57 80 58 101 59 73 60 74 61 81 62 64 63 70 64 61 以上数据意味着什么 – 14 calls came back in 45 milliseconds […]

只有名称以“c”开头的Excel VBA运行时错误1004: 那就对了。如果我将以下代码中的“Chart_Series_W_Gain_AAPL”中的“C”更改为代码工作的任何其他字母。否则它会在Series.Formula赋值中抛出一个错误1004。实际上，如果我使用任何以“c”开头的随机名，则代码将失败，否则不会。我已经尝试closuresExcel并重新打开，但同样的问题。我遇到过这个问题，因为我一直以图表名字命名图表系列定义的名称，但后来我认定这是令人困惑的，我尝试在“Chart_Series_”中预先定义用作图表系列的名称。人们会想，非常温和的改变。 Dim objChartWGain As Chart Dim objSeries As Series Set objChartWGain = Charts("W Gain") Set objSeries = objChartWGain.SeriesCollection.NewSeries ActiveWorkbook.Names.Add "Chart_Series_W_Gain_AAPL", "=W_Gain_Data_Array(W_Gain_Data_Alloc,1,W_Gain_Data_GainLossCurr)" objSeries.Formula = "=SERIES(""AAPL"",,'ThomTrade-charts.xlsb'!Chart_Series_W_Gain_AAPL,1)"

在Excel 2010中调用URL而不打开网页: 我的Excel工作表由手机号码组成。我想通过每个号码到一个URL，并执行我的服务器上的某些代码。我已经创build了一个button，并写下了以下代码： Private Sub CommandButton1_Click() strURL = "http://xxxxxxx.com/myAPI.php?mobilenumber=" _ & ActiveCell.Value Call Sheets("Sheet1").Navigate(strURL) End Sub 但不幸的是，它不工作。请不要，我不想redirect到http://xxxxxxx.com/myAPI.php只是调用它，并传递给它的mobilenumber 。谢谢

VBA – 如何将选定范围传递给TextBox作为参考？: 到目前为止，我有一个包含TextBox（TextBox1）和Button（BtnRng）的小型UserForm。我想要的是通过使用范围select器插入到文本框的范围。到目前为止，我已经设法创build一个types值为8的InputBox。但是，我无法弄清楚如何将选定的范围传递给TextBox作为参考。例如，如果我select范围A1到A10，InputBox正确显示“$ A $ 1：$ A $ 10”。但是我想要的是将参考放置到TextBox中。这是我无法弄清楚的部分。此刻它想要将在范围中select的单元格的值放到文本框中。这是迄今为止的代码： Private Sub BtnRng_Click() Dim ThisRng As String ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8) TextBox1.Text = ThisRng End Sub

使用另一个表中的列中的值从Excel中删除行？: 我正在一个有多列和大约6000行的Excel工作表。 Sheet1将包含主要信息（6000行和R列）。 Sheet2是我需要用于过滤/删除这些行的例外列表。现在这是我正在使用，它只能find完全匹配。我需要这个来查找sheet2中的例外，即使它们是另一个单词的一部分。例如：当我运行它时，它会发现并删除每一行，只包含单词hello。但不是你好世界或你好富。我需要这个用hello world和hello foo来删除这一行。我想这样设置，所以我可以简单地添加更多的项目到我的例外列表，并根据需要删除更多的行。 Sub CheckA() Dim LR As Long, i As Long With Sheets("IR Temp") LR = .Range("A" & Rows.Count).End(xlUp).Row For i = LR To 1 Step -1 If IsNumeric(Application.Match(.Range("A" & i).Value, Sheets("Exceptions").Columns("A"), 0)) Then .Rows(i).Delete Next i End With End Sub 我怎样才能使这个不太具体？我知道它是如何工作，并find完全匹配，但我需要它来查找和删除该行，如果该值与任何其他字符的组合find它。

如何获得Excel版本和macros安全级别: 微软最近打破了我们长期以来（由他们正式推荐）的代码来阅读Excel的版本及其当前的omacro安全级别。什么曾经工作： // Get the program associated with workbooks, eg "C:\Program Files\…\Excel.exe" SHELLAPI.FindExecutable( 'OurWorkbook.xls', …) // Get the version of the .exe (from it's Properties…) WINDOWS.GetFileVersionInfo() // Use the version number to access the registry to determine the security level // '…\software\microsoft\Office\' + VersionNumber + '.0\Excel\Security' （我总是感到有趣的是，在一个不安全的registry项中安全级别是多年的…）在Office 2010中，.xls文件现在与“”Microsoft Application Virtualization DDE Launcher“或sftdde.exe关联。这个exe的版本号显然不是Excel的版本。我的问题： […]

如何在Visual Basic for Applications中使用“类模块”或“模块”？: 我试图在vba中创build一个集合，并不知道如何做到这一点。任何人都可以解释这个给我，或者把我送到一些链接？我一直在研究这个“语言问题”几个小时。我已经检查过，谷歌，MSDN和F1的帮助无济于事。