Tag: 复制粘贴

粘贴从不同来源复制的相同文本在Excel中的行为有所不同

现在这是一个奇怪的 我们有一个项目,我们正在从Excel电子表格中读取一些数据。 显然这个数据必须是一定的格式。 一些字段由数字组成,但应被视为文本。 要停止Excel“智能”,并更改单元格types,我已经在相应的单元格格式设置为“文本”。 现在问题在于:我们正在粘贴的一些数字在数字之间有间隔。 当我们删除空白时,Excel将单元格格式更改为“标准”,并将文本转换为2.42805E + 11格式。 但是:这只发生在从某些来源复制文本时。 如果粘贴从一个文本框中复制的数字,当我们编辑空格时,一切正常。 如果我们从网页上复制完全相同的数字,Excel会更改单元格格式。 我认为复制粘贴将是复制粘贴,但显然有一些格式化或东西相处。 有没有人知道是什么原因导致这种情况,或知道必须让Excel停止与合成“聪明”? 编辑:我发现这个有点奇特的解决scheme。 我logging了一个使用“粘贴特殊”function的文本作为参数的macros,并用它(在特定的电子表格中)覆盖了ctrl-v。 奇迹般有效! 虽然感觉有点“哈克”。 任何人都可以想到一个情况,这将适得其反。

PostgreSQL:无需代码复制/粘贴到Excel中

我使用了MS SQL Server 2008 R2(MS SQL),我可以右键单击查询结果,将它复制/粘贴到Excel中以便于浏览。 现在使用PG Admin(PostgreSQL),我必须导出(文件>导出> CSV),然后一堆Excel步骤(文本到列)。 有没有一种简单的方法来复制/粘贴到Excel的查询结果? 谢谢!

在表中search栏中的值; 如果发现复制前两列值和列标题

我没有使用VBA的经验,但在工作中我被问到解决这个问题的方法。 我有一张表格,里面有这样的数据: 姓名…..date修改 ……. 01/01/13 …… 01/02/13 …….. 01/03/13 乔………… 02/05/13 ………晚 最高date值是应付账单date和(1/05/13)date值是账单更改的date。 我需要search每个date列(1 / 1-1 / 3)和单词“迟到”,如果发现我需要复制并粘贴更改的名称和date和date到另一个工作表。 在这个例子中,我将复制这些值: 乔…….. ……… 13年2月5日13年1月1日 进入另一张纸。 我将不胜感激任何帮助。

join三个代码“打开对话框”“剪切并粘贴”和“分割列重命名”

我希望你能帮上忙。 我有以下三段代码。 三者完全相互独立。 一切编译macros只是不会正确执行。 第一块代码Sub Open_Workbook_Dialog()打开一个对话框,并允许用户select一个文件。 第二段代码Public Sub Sample()search文本“CountryCode”的列标题,然后剪切该列并将其粘贴到F列中。 第三部分代码Public Sub Filter()获取列F并将其拆分为新的工作表并重命名基于国家/地区的工作表。 所以基本上macros应该做的是打开一个对话框获取文件,find它的国家列,将其剪切并粘贴到列F,然后将此列分割成新的表格和重命名。 就像我说的所有的代码独立工作,但是当我把它们放在一起。 对话框打开我select我的文件,然后我得到Msgbox “Country not Found”,即使Set aCell = .Range("A1:X50")列在范围内我想 Set aCell = .Range("A1:X50") CountryCode在列W. 一旦我单击MsgBox “国家找不到” Public Sub Filter()执行并拆分并重命名错误的列。 发现似乎没有发生,因此剪切和粘贴不会发生。 为了更好的理解,我附上照片。 国家未find 被错误的F分割 下面的代码 Sub Open_Workbook_Dialog() Dim my_FileName As Variant MsgBox "Pick your TOV file" '<–| txt box for prompt to pick a […]

VBA复制到一个新的工作簿并保存

我希望你能帮上忙。 我有下面的代码。 基本上它是这样做的,它打开一个对话框,允许用户select一个Excel工作表,然后出口到国家栏(11)过滤它,然后将该国家复制并粘贴到一个新的工作表命名新的工作表之后那个国家就会重复下一个国家的行动。 我现在想要做的是不是创build一个新的工作表并命名它。 我希望它为每个国家创build一个新的工作簿,复制并粘贴信息,然后将新工作簿保存并命名为一个文件夹。 我的代码如下。 任何帮助一如既往不胜感激。 Sub Open_Workbook_Dialog() Dim my_FileName As Variant MsgBox "Pick your TOV file" '<–| txt box for prompt to pick a file my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*") '<–| Opens the file window to allow selection If my_FileName <> False Then Workbooks.Open Filename:=my_FileName Call Filter '<–|Calls the Filter Code and executes End […]

将公式从工作簿复制到另一个

我想将工作簿1中sheet1的内容复制到工作簿2中的工作表1 ,保持公式不变。 在这些公式中,有些是指sheet1中的单元格,另一些是指sheet2中的单元格。 我曾尝试copy & paste special/formulas ,但引用workbook1_sheet2的公式仍然引用workbook1。 我怎样才能避免这一点?

从Excel中用jQueryfile upload粘贴页面上导致上传

为了解决这个问题,我在页面上有两个input。 一个是文本input,另一个是文件input。 如果我将Excel电子表格单元格复制并粘贴到文本input,它会触发file upload到文件input。 我想允许复制粘贴而不触发file upload。

Excel VBA – 循环播放文件夹中的文件,复制范围,粘贴在此工作簿中

我有500个Excel文件的数据。 我会将所有这些数据合并到一个文件中。 任务列表来实现这一点: 我想循环一个文件夹中的所有文件 打开文件, 复制这个范围“B3:I102” 将其粘贴到活动工作簿的第一个工作表中 重复,但粘贴下面的新数据 我已经完成了任务1-4,但是我需要帮助完成任务5,最后一点 – 在现有数据下粘贴数据并使其dynamic化。 我在代码中用'####'突出显示了这一点。 这是我从其他人的问题放在一起的代码:) 任何build议如何做到这一点? Sub LoopThroughFiles() Dim MyObj As Object, MySource As Object, file As Variant Dim wbThis As Workbook 'workbook where the data is to be pasted, aka Master file Dim wbTarget As Workbook 'workbook from where the data is to be copied from, […]

Excel VBA代码复制和粘贴从Excel到另一个开放(非MS)过程?

更新♦♦♦♦ 好的,非常感谢所有的帮助! 所以问题(如果你是新的主题,请检查出这篇文章的以前修订)不再切换应用程序,我发现我可以使用AppActivate来做到这一点,而不是尝试使用SendKeys "%{TAB}" 。 新的问题是我不能在应用程序之间复制和粘贴。 我甚至不知道信息是否被复制,或者如果是粘贴,就是问题。 我也尝试了range().copy没有成功。 任何想法修复这个问题? 这里是当前的VBA代码: Sub Macro3() ' ' Macro3 Macro ' ' Range("A1:B71").Select SendKeys "^C" 'Copies Selected Text AppActivate "AccuTerm 2K2" SendKeys "2", True 'Enters to notes screen SendKeys "^M", True 'Confirms above (Enter key) SendKeys "^V", True 'Pastes into client application Application.Wait (Now + TimeValue("0:00:05")) 'Providing time for […]

复制和重新排列Excel中的列与Openpyxl

我有一个Excel文件中的数据,但它是有用的,我需要复制和粘贴到不同的顺序列。 我已经想出了如何打开和读取我的文件,并写一个新的Excel文件。 我也可以从原始数据中获取数据,并将其粘贴到我的新文件中,但不能在循环中。 这里是我正在使用的数据的一个例子,以显示我的问题,我需要A1,B1,C1彼此相邻,然后是A2,B2,C2等。 这是我创build的一个较小的testing文件的代码, import openpyxl as op wb = op.load_workbook('coding_test.xlsx') ws = wb.active mylist = [] mylist2 = [] mylist3 = [] for row in ws.iter_rows('H13:H23'): for cell in row: mylist.append(cell.value) for row in ws.iter_rows('L13:L23'): for cell in row: mylist2.append(cell.value) for row in ws.iter_rows('P13:P23'): for cell in row: mylist3.append(cell.value) print (mylist, mylist2, mylist3) […]