VB初心者質問スレ Part4

>>658
クリップボード経由だけど、それらしいことはできる。

「セキュリティの設定」で「スクリプトによる貼り付け処理の許可」を有効にする。
（セキュリティとしては大いに問題あり）

HTMLここから--------------------------------------------
<script language="vbscript">
    Sub txtCopyToClipboard()
        set rngText = frmText.txtTarget.createTextRange()
        rngText.execCommand("copy")
    End Sub
</script>

<form id="frmText">
    <input id="txtTarget" type="text" name="txtTarget">
</form>
<a href="./xxx.xls" language="VBScript" onClick="txtCopyToClipboard()">xxx.xls</a>
HTMLここまで--------------------------------------------

EXCELここから--------------------------------------------
Private Sub Workbook_Open()
    Call Read_text
End Sub

Private Sub Read_text()
    Dim txtField As String
    Dim objData As DataObject

    Set objData = New DataObject
    objData.GetFromClipboard
    txtField = objData.GetText

    ActiveCell.FormulaR1C1 = txtField
    Range("A1").Select
End Sub
EXCELここまで--------------------------------------------