Tag: excel

如何使用VBA将图片插入指定单元格位置的Excel中: 我用下面的代码将“.jpg”文件添加到我的Excel工作表中： 'Add picture to excel xlApp.Cells(i, 20).Select xlApp.ActiveSheet.Pictures.Insert(picPath).Select 'Calgulate new picture size With xlApp.Selection.ShapeRange .LockAspectRatio = msoTrue .Width = 75 .Height = 100 End With 'Resize and make printable With xlApp.Selection .Placement = 1 'xlMoveAndSize '.Placement = 2 'xlMove '.Placement = 3 'xlFreeFloating .PrintObject = True End With 我不知道我在做什么错，但它不会插入到正确的单元格，所以我应该怎么做，把这个图片到Excel中指定的单元格？

JSP生成Excel电子表格（XLS）进行下载: 我有我在JSP中开发的这个应用程序，我希望从XLS（MS Excel格式）的数据库中导出一些数据。是否有可能在tomcat下编写一个文件，就像它是一个普通的Java应用程序，然后生成一个链接到这个文件？或者我需要使用特定的API吗？这样做的时候我会有权限问题吗？

将范围从A1返回到最后一个使用的单元格: 我想select电子表格中的所有行和列。 macros需要是dynamic的，因为每次macros被调用时，列和行的数量都会变化。它还需要能够考虑空白的行和列。这个子程序完成了部分过程： Sub FindLastCell() Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select End Sub 它find并select电子表格中最后一个单元格。现在我已经find了电子表格中最后一个单元格，如何select单元格A1作为范围的LastCell？

使用VB将excel工作表保存为CSV文件名+工作表名称: 我很新的VB编码，我试图保存多个Excel文件工作表到CSV，我不知道这样做多张，但我find了一种方法来做单个文件。我发现在这个网站上的代码是非常有用的，我想要做的，只有问题是文件与工作表名称保存，但我想保存与原始文件和工作表名称，如filename_worksheet name ，我试图自己做这件事，但不断发生错误，请问我是否做错了？我正在使用的代码如下所示： Public Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheets WS.SaveAs SaveToDirectory & WS.Name, xlCSV Next Application.DisplayAlerts = False ThisWorkbook.SaveAs […]

使用VBA检查文件是否存在: Sub test() thesentence = InputBox("Type the filename with full extension", "Raw Data File") Range("A1").Value = thesentence If Dir("thesentence") <> "" Then MsgBox "File exists." Else MsgBox "File doesn't exist." End If End Sub 在这个时候，我从input框中拾取文本值，它不起作用。但是，如果从If Dir()除去"the sentence" ，并将其replace为代码中的实际名称，则可以使用。有人可以帮忙吗？

在Excel-VBA中访问SQL数据库: 我正在从MSDN复制一个VBA代码片段，演示如何从一个SQL查询抓取结果到Excel工作表（Excel 2007）中： Sub GetDataFromADO() 'Declare variables' Set objMyConn = New ADODB.Connection Set objMyCmd = New ADODB.Command Set objMyRecordset = New ADODB.Recordset 'Open Connection' objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;User ID=abc;Password=abc;" objMyConn.Open 'Set and Excecute SQL Command' Set objMyCmd.ActiveConnection = objMyConn objMyCmd.CommandText = "select * from myTable" objMyCmd.CommandType = adCmdText objMyCmd.Execute 'Open Recordset' Set objMyRecordset.ActiveConnection = objMyConn objMyRecordset.Open […]

Excel数字格式：什么是“”？: 我自动化的Excel，使用macros观系统作为指导，我应该通过自动化。当我格式化一列作为date，macros生成列的NumberFormat是： [$-409]m/d/yy h:mm AM/PM;@ 我试图破译这是什么意思。我从Google搜集，方括号中的值是一个“条件” ，如果条件： $-409 遇到，那么它将使用NumberFormat m/d/yy h:mm AM/PM 如果不是，则使用NumberFormat @ 我发现的引用说，数字格式“@”是一个文本占位符所以我的问题是：什么是有条件的$ -409testing？是比较一下与-409 （即负四百九），如果是的话，它与美元的比较是什么？如果条件失败，并且使用文本占位符 “at-sign”，它会显示什么？

导出数据表到Excel文件: 我有一个DataTable 30 +列和6500 + rows.I需要转储整个DataTable值到一个Excel文件。任何人都可以请帮助C＃代码。我需要每个列的值在一个单元格。准确地说，我需要在Excel文件中的DataTable的确切外观副本。请帮助。谢谢，Vix

如何在不使用VBA的情况下在Excel中执行反向stringsearch？: 我有一个Excel电子表格包含一个string列表。每个string由几个字组成，但是每个string中的字数是不同的。使用内置的Excel函数（无VBA），是否有办法隔离每个string中的最后一个单词？例子：你被归类为人类？ – >人类？消极的，我是一个肉棒冰棍 – >冰棒阿齐兹！光！ – >轻！

为每个唯一代理创build一个新工作表并将所有数据移动到每个工作表: 我有这个问题，我试图解决。每天我都会收到一份包含我需要发送的数据的报告。所以为了使它更容易一点，我试图find一个macros，创build一个新的表与代理的名称，并移动在创build表中的每个代理的数据… 我find了一个可以做很多事情的人。但是，由于这不是我的专业领域，所以我无法修改它来处理我的请求，甚至可能使其工作。任何人有任何想法？ Const cl& = 2 Const datz& = 1 Dim a As Variant, x As Worksheet, sh As Worksheet Dim rws&, cls&, p&, i&, ri&, j& Dim u(), b As Boolean, y Application.ScreenUpdating = False Sheets("Sheet1").Activate rws = Cells.Find("*", , , , xlByRows, xlPrevious).Row cls = Cells.Find("*", , , , […]