|
▼hoully さん:
コンニチハ、、
私もexcelを使って自動売買していますので
なんとなくやりたいことは「理解できます、
こんな感じですか。
book名とシート名を指定してやります。
後は、RRRRの用にすればいろいろ出来ます。
指定をしないと、アクティブなシートにRangeやCellsは指定に成ります
Public WBK1 As Workbook, WBK2 As Workbook, WBK3 As Workbook
Public SH1 As Worksheet, SH2 As Worksheet, SH3 As Worksheet
public strfile as string
Sub 初期化()
Set WBK1 = ThisWorkbook ' 自ブック
Set SH1 = WBK1.Worksheets("板とチャート")
strfile = ThisWorkbook.Path & "\" & "ティック.xls"
Workbooks.Open strfile
Set WBK3 = ActiveWorkbook
Set ShH2= WBK3.Worksheets(1)
end sub
SUB RRRR
sub SH1.range("A1")=SH2.RANGE(A1")
END SUB
|
|