|
みなさん、おはようございます。
XL97ですか?
実行がCommandButtonのClickイベントで、ほかの人が試したら無事に動くということで。
>Private Sub CommandButton1_Click()
ActiveCell.Activate 'これを追加
> Workbooks.OpenText Filename:= _
> "C:\Documents and Settings\Toshihiko.Fujiwara\My Documents\test.txt", StartRow _
> :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
> ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
> , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1))
> Range("B1:B4").Select
> Selection.Copy
> Workbooks.Add
> Range("A2").Select
> Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
> , Transpose:=True
>End Sub
一応貼っておきます。
マイクロソフト
[XL97]ActiveXコントロールのCommandButtonのClickイベントでエラー
http://support.microsoft.com/default.aspx?scid=kb;ja;408907
XL97じゃなかったらすみません。
|
|