A 回答 (3件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
これだけで的確な回答を出来る人がいるでしょうか?
実際に見ているのと違い、文章だけでのやり取りですので、
Excelのバージョン
具体的なコード
プロシージャを呼び出している状態(シートに置いたCommandButtonから実行など)
クリップボード監視ソフトの名前
ブックやシートの状態 etc
可能な限り具体的に提示された方が回答が得られやすいと思います。
この回答への補足
Excelのバージョン:2000,2002 両方で発生
具体的なコード:
Private Sub Workbook_Open()
~略~
iniFaileSet
~略~
End Sub
Public Function iniFaileSet() As Boolean
~略~
Set myDataObject = New DataObject
myDataObject.SetText myTextData
myDataObject.PutInClipboard
iniFaileSetPositionSheet.Range("A2").PasteSpecial
~略~
End Function
クリップボード監視ソフトの名前 :なんでもいいです
たとえば 秀丸
No.2
- 回答日時:
#1です。
動作しない形でコードを提示されても、検証出来ません。
myTextData ? iniFaileSetPositionSheet ?
省略するにしても最低限の動作はするコードで、この場合はOKで、この場合はダメなどの状況説明が無いと辛いです。
不明な部分を独自に補正&加工して下記のようにし、常駐秀丸でクリップボード監視をさせながら試しましたが別に問題なかったです。(Windows2000 + Excel2000とWindows95 + Excel97)
'********************************************************************
Private Sub Workbook_Open()
Dim myInt As Integer
Randomize
myInt = Int((100 * Rnd) + 1) 'コピー用データをランダムに作るだけ
If iniFileSet(ThisWorkbook.Worksheets(1), Str(myInt)) Then
MsgBox Str(myInt) & " を " & _
ThisWorkbook.Worksheets(1).Name & _
" の A2 に貼付けました。", vbInformation
End If
End Sub
'********************************************************************
Public Function iniFileSet(ws As Worksheet, s As String) As Boolean
On Error GoTo ER:
iniFileSet = False
Set MyDataObject = New DataObject
MyDataObject.SetText s
MyDataObject.PutInClipboard
ws.Range("A2").PasteSpecial
iniFileSet = True
Exit Function
ER:
End Function
'********************************************************************
もとのコードはクリップボード監視ソフトが常駐していなければ問題なく動くんでしょうか?
この回答への補足
>myTextData
Dim myTextData As String
Set myFso = New Scripting.FileSystemObject
Set myTst = myFso.OpenTextFile(faileNeme)
With myTst
Do While .AtEndOfStream = False
myTextData = myTextData & Replace(.ReadLine, ",", vbTab) & vbCrLf
Loop
End With
CSVファイルを読み込み、','をTABコードに変換しています
>iniFaileSetPositionSheet
すべてのセルの書式が標準の空のシート
(読み込んだCSVを書き込みシート)
>もとのコードはクリップボード監視ソフトが常駐していなければ問題なく動くんでしょうか?
はい 問題なく動きます
No.3
- 回答日時:
#1です。
しつこいようですが、切り貼りのコードでは不具合の有無すら検証出来ませんし、何をされたいのかも解かりません。
かなりVBAの知識がおありのようで、私などの出る幕では無いようです。
レスはこれで最後にしようと思いますが、参考まで。
失敗の原因とクリップボード監視ソフトの因果関係は検証出来ないので解かりませんが、個人的な印象としては、何らかの原因で iniFaileSetPositionSheet を見失う事があり、それが原因で失敗しているように感じます。
iniFaileSetPositionSheet を Workbook.Worksheet.Range のように明示的にブックから指定してみるとか。。。
最後に、CSVをタブ区切りに変えてセルの書式が標準のシートに、クリップボードを使ってコピー&ペーストするのと、単純に開くのと、どんな違いがあるのか私には解かりませんでした。
Sub Test()
Dim wb As Workbook, fName As String
fName = "C:\aaa.csv"
Set wb = Workbooks.Open(fName)
wb.Worksheets(1).UsedRange.Copy
End Sub
お礼が遅くなってすみません
1秒WAITさせたら、エラーがでなくなりました
とりあえずこれで行きます
でも 原因が不明なんです。。。。
Application.Wait (Now() + TimeValue("00:00:01"))
iniFaileSetPositionSheet.Range("A2").PasteSpecial
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】ボタンに登録したマクロがエラーになる 4 2022/07/25 17:47
- Visual Basic(VBA) セルS2に入力した「月」と一致したB列の右隣へセルS110の値を転記する下記マクロを実行するとエラー 2 2022/12/06 17:32
- Visual Basic(VBA) エクセルVBA 3 2022/06/23 20:00
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/05 09:30
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) 送付元、送付先が同じ大きさの複合セルのコピーがVBAで、できません。 1 2023/06/01 20:51
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
実行時エラー'-2147417848(80010108)':
その他(Microsoft Office)
-
VBAマクロ 実行時エラーが出たり出なかったり
Excel(エクセル)
-
-
4
実行時エラー -'-2147417848
Excel(エクセル)
-
5
エクセルでアルファベットか数値の判定をしたいのですが
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル②
-
エクセルVBA、別ブックへ転記す...
-
(マクロ)データをAブックからB...
-
エクセルを使っていて2024/5/15...
-
エクセルの暗号化なしのバーの...
-
Excelでセルの値が同じか...
-
エクセルの計算
-
vba Bookを最小にせずに、UserF...
-
【マクロ】必要な項目(列)の...
-
Excel
-
エクセル:一覧表に存在する文...
-
エクセルでの作業計算方法について
-
Excelで縦軸の書式を0:00形式の...
-
Microsoft 365の Excel を使用...
-
指定文字の間に
-
Googleスプレッドシートでファ...
-
エクセルで年休を管理する方法...
-
UNIQUE関数が使えないバージョ...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
学校で買ったiPadがあるんです...
-
アプリについて
-
パソコンを監視されているのを...
-
バイト前眠れないです。 大学生...
-
会社のパソコンの監視のされ方...
-
中国留学行くんですが、中国で...
-
26歳女です。職場で目をつけら...
-
他人のPCに一切触れずにそのPC...
-
複数の店舗に設置してあるWIFI...
-
学校支給のiPadはどこまで監視...
-
誰かに監視されてる気がします ...
-
OVO(OpenViewOp...
-
Excelシート上のオプションボタ...
-
教えてgooの投稿を監視削除して...
-
大至急‼️学校のiPadについて
-
学校のPCにUSBメモリを挿したら...
-
サーバーのホスト名を考えています
-
情報倫理についてのレポート
-
ラップ音が、自分の思考や行動...
-
共有フォルダへのアクセスを監...
おすすめ情報