作者yimean (温柔杀手)
看板Office
标题Re: [算表] VBA如何写入他档特定储存格
时间Sat Sep 8 14:44:12 2018
因为更新程式码，用新文章比较好处理，如果伤眼，请见谅。
根据N大与S大的指导，我将程式码更新如下。但是Excel还是不吃。
应该是有完成复制，但是没有完成贴上。
Private Sub CommandButton2_Click()
'=======================找寻绝对路径与读档===========
Dim dpath As String
Dim Fname As String
Dim index_row As Integer
Dim index_column As Integer
Dim x As Integer
Dim fileA As Workbook
dpath = ThisWorkbook.Path
MsgBox ThisWorkbook.Path
Fname = Range("B1").Value
Workbooks.Open Filename:=dpath & "\" & Fname & ".xlsx"
Set fileA = Workbooks(Fname & ".xlsx")
Application.Goto reference:=ActiveSheet.Range("A1") '储存格起始座标指定
ActiveSheet.Range("A1").End(xlDown).Select '最後一笔资料定位
index_row = Selection.Row '最後一笔资料位置
index_column = Selection.Column '最後一笔资料位置
ThisWorkbook.Activate '回到A档案
Range("B2").Copy
With fileA '进到B档案
Cells(index_row + 1, index_column).PasteSpecial
End With
'===================================================
End Sub
※ 引述《yimean (温柔杀手)》之铭言：
: 软体:Excel
: 版本:2013
: 小弟目前遇到两个问题。
: 1.我要在A档案执行VBA把A档案的某特定储存格写入B档案特定储存格中。
: 2.我要在A档案执行VBA把B档案的某特定储存格读入A档案特定储存格中。
: 举例:
: A档案worksheet1
: A B C
: 1 我 是 谁
: 2 王 大 头
: 3 知 道 吗
: B档案
: A B C D E F G H I
: 1 我 是 谁 王 大 头 知 道 吗
: 取得档案路径我已经会了，可是我不知道应该如何写入档案。
: 我的核心问题是，我分不清楚此时我在A档案还是在B档案。
: 要如何在两个档案间切换。
: 下方是我的片段程式码，烦请些助指导。
: Dim dpath As String
: Dim Fname As String
: Dim index_row As Integer
: Dim index_column As Integer
: Dim x As Integer
: dpath = ThisWorkbook.Path
: MsgBox ThisWorkbook.Path
: Fname = Range("B1").Value
: Workbooks.Open Filename:=dpath & "\" & Fname & ".xlsx"
: Application.Goto reference:=ActiveSheet.Range("A1")
: ActiveSheet.Range("A1").End(xlDown).Select '当我做这个动作时我应该是在B档案了
: '那我如何切回A档案把A档案的资料复制起来贴到B档案。
: 以上烦请协助，感谢。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.125.15.22
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1536389054.A.5FF.html
※ 编辑: yimean (59.125.15.22), 09/08/2018 14:49:21
1F：→ soyoso: cells(...).pastespecial改为 .activesheet.cells(...). 09/08 14:52
2F：→ soyoso: pastespecial 09/08 14:52
3F：→ soyoso: activesheet也可改为指定的worksheets或sheets的工作表名 09/08 14:53
4F：→ soyoso: 称 09/08 14:53
6F：→ yimean: 感谢大大的指导，成功了。 09/08 15:09
7F：→ yimean: 不好意思，在请教一下，如果我只想贴上值，应该要怎麽做呢 09/08 15:24
8F：→ soyoso: range.pastespecial 後面参数为xlpastevalues 09/08 15:27
9F：→ yimean: 感恩 09/08 16:45