从excel中将文件的值发送到另一个文件
我需要从一个文件引用另一个单元格,我需要从第一个文件。
通常情况下,我会去“目的地”文件,并在想要的单元格中插入“ [filename.xlsx]sheet'!$C$40
”,但在这种情况下,我想直接从input文件发送值/像“这个值必须发送到' [filename.xlsx]sheet'!$C$40
”。
更好的办法是,如果我可以通过使用指定给第一行单元格和第一列单元格的名称指定目标单元格的坐标来select将值/单元格复制到何处(如“将此值发送到[filename.xlsx]sheettextoffirstrawp textoffirstcolumn10
将其发送到filename.xlsx P10
单元格)
有没有macros(或其他)已经做了这样的事情? 如果没有,你认为可以做到吗?
感谢您的帮助,如果我所要求的不够清楚,请让我知道,我会尽力自己解释一下。
在这里,我留下一个你需要的起点。
Public Sub CopyToDestination() Dim wb1 As Excel.Workbook Dim RangeValues As Range Set RangeValues = Selection wbDestination = InputBox("Insert file path/name.xlsx") sheetDestination = InputBox("Insert Sheet Name") RangeDestination = InputBox("Insert Cell Destination") Set wb1 = Workbooks.Open(wbDestination) wb1.Activate wb1.Sheets(sheetDestination).Range(RangeDestination).Value = RangeValues.Value wb1.Save wb1.Close End Sub
如何使用:
- 在Excel VBA模块中添加此代码。
- 在Excel中,select您想要复制的单元格
- 执行macros
- 写完整的位置,例如“c:/test/Destination.xlsx”
- 编写目标工作表名称
- 写你想要粘贴的位置,例如。 “A4”(如果您select范围,则必须写入范围,例如“A1:C4”
- 魔法!
我再说一遍,这是一个起点,如果你每天都会用它,可能还得改善。
希望它有效,欢呼!