Tag: 复制

当试图复制工作表时，“下标超出范围”: Private Sub Add_Click() ActiveWorkbook.Worksheets(ComboBox1.Value).Copy Before:=Workbooks(link.Value).Worksheets("Contract") End Sub 这是我100％确定链接和ComboBox1有我正在寻找的值。有人可以告诉我为什么我不断收到错误“下标超出范围 ”？

将数据复制到另一个工作表: 我无法理解下面的函数在做什么。该function本身具有将数据复制到工作Sheet History 。但是，我不明白这是怎么回事？ Sub histFunc() Dim Y As String Y = "R" & Range("G7").Value Sheets("Sheet History").Select Range("h17").Select Cells.Find(What:=Y, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Range(Selection, Selection.End(xlToRight)).Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet Current").Select End Sub 任何build议这个macros如何运作？我很感激你的回复！

创build新的工作簿并复制/粘贴。更快的解决scheme？: 目前下面的代码工作正常，但是原来的“filelocation1”暂时打开，最终用户在一秒钟之内就可以看到它。有没有办法做同样的事情，但它运行得更快和/或可能永远不会打开原来的工作簿？ vba： Private Sub CommandButton1_Click() Dim wbI As Workbook, wbO As Workbook Dim wsI As Worksheet, wsO As Worksheet Dim filelocation1 As String Dim filelocation2 As String filelocation1 = Environ("USERPROFILE") & "\Desktop" & "\" & Format(Date, "ddmmyyyy") & ".xls" filelocation2 = "\\file\nextfile\fileafterthat\etc" & "\" & Format(Date, "ddmmyyyy") & Application.UserName & ".xls" Set wbI = […]

使用条件格式突出显示重复项不相邻: 我们按照一定的顺序在Excel中有一个零件清单。由于我不想涉及的原因，我们需要突出显示何时存在不相邻的副本。目前，我正以条件格式使用这个公式来完成这项工作。 =AND(COUNTIF($A$2:$A$82,$A2)>1,$A1<>$A2,$A2<>$A3) 除了在下面的例子中有重复副本的情况之外，这种方式大多运作良好，我们希望FO-1694被高亮显示，因为它们并不是全部相邻。但是我们不希望NIS0257被突出显示，因为它们是。目前理想情况下，这是我们想看到的… 预期任何想法可以通过使用条件格式来实现？注：我已经直接从超级用户论坛（链接）的过去的职位张贴这个，因为我需要这种EXACT条件格式的EXACT相同的情况。我不赞成这个职位的build设，但只希望得到一个以前没有答案的问题的答案。

从工作簿复制范围到另一个没有打开: 我想通过使用对话框来select我想要从中复制数据的文件从一个工作簿复制到另一个值的范围。我也不想在这个过程中打开“copyFrom”工作簿。问题在于将string“filename”中的文件path传递给工作簿variables“copyFrom”。 Option Explicit Private Sub butt_copy_Click() Call copy1 End Sub Private Sub copy1() Dim fileName As String, copyFrom As Workbook fileName = Application.GetOpenFilename() copyFrom = filename Sheet1.Range("A1:A20") = copyFrom.Sheets(Sheet1).Range("A1:A20") End Sub

将工作表复制到另一个工作簿，但工作表也保存在一个新的工作簿中: 我需要将工作表从一个工作簿复制到另一个（现有的）工作簿。它工作，但工作表也自动保存在一个新的工作簿。我不知道这是为什么。这是我的代码： Worksheets("New").Activate If IsSheetEmpty(StartWorkbook.Sheets("New")) = True Then Application.DisplayAlerts = False Worksheets("New").Delete OLDWorkbook.Activate Sheets("sheet1").Select Sheets("sheet1").Copy Sheets("sheet1").Copy After:=StartWorkbook.Sheets("Control") StartWorkbook.Activate Sheets("sheet1").Name = "New" OLD.Close Application.DisplayAlerts = True Else MsgBox ("sheet is not empty") End If 提前致谢

当复制到不同的工作表时Excel 400错误: 我已经看了100个不同的解决scheme来解决这个不断出现的错误。它是一个只有数字“400”的popup框和一个OKbutton。从即时复制的表单被称为“前端” 我的代码如下所示： Sub transfer() range("C2").Select Selection.Copy Worksheets("Raw Data").Select lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row range("A" & lMaxRows + 1).Select Selection.Paste End Sub 我只是试图从一个工作表移动到另一个表中的下一个空行的数据，但不断得到这个错误。任何帮助将不胜感激，因为我对VBA是非常新的

macros复制当前在单元格中的任何内容，而不是硬编码的引用: 我希望macros复制指定单元格中列出的单元格地址，并将其复制到“去”框以激活该单元格。我试图录制这个macros，但不是复制和粘贴指定单元格中的任何内容，而是对单元格地址进行硬编码。这个单元格地址将会周期性地改变，所以我需要它更加dynamic。这里是代码： Range("D52").Select Selection.Copy Application.Goto Reference:="R3C33" 我想要的不是硬编码参考（R3C33），而是D52中的所有参数。此外，如果D52位于另一张目前未激活的工作表中，那么我需要让macros知道从不同的选项卡中将D52从D52中拉出来。

Sqlbulkcopy浮动转换错误（asp.net c＃）: Iam试图插入大量的Excel到SQL sqlBulk.WriteToServer(dReader); 给出错误来自数据源的Stringtypes的给定值不能转换为指定目标列的floattypes。 Iam使用下面的代码 System.Data.SqlClient.SqlConnection strConnection; strConnection = new System.Data.SqlClient.SqlConnection("Data Source=L06DPSGCD0001;Initial Catalog=ProductionEfficiency;User ID=sample;Password=sample"); string path = ("C:\\Users\\s3802616\\Desktop\\" + (FileUpload1.FileName)); System.Diagnostics.Debug.WriteLine("C:\\Users\\s3802616\\Desktop\\" + (FileUpload1.FileName)); string excelConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + path + ";Extended Properties=" + "\"" + "Excel 12.0;HDR=YES;" + "\""; //Create Connection to Excel work book OleDbConnection excelConnection = new OleDbConnection(excelConnectionString); //Create OleDbCommand to fetch […]

Excel VBAmacros – 复制单元格和粘贴值到活动单元格范围: 我遇到了这个Excelmacros的一些问题，因为我很新。我想采取各种单元格，复制它们，然后将其值粘贴到活动单元格和它下面的单元格。例如，我已经select了单元格D2。当我运行macros时，我想要复制的值是A1，B4和C3。当我运行macros，我想要这些单元格的值分别粘贴到单元格D2，D3和D4。任何帮助这个代码将不胜感激！