A 回答 (3件)
- 最新から表示
- 回答順に表示
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
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.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
クリップボード監視ソフトの名前 :なんでもいいです
たとえば 秀丸
お探しの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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アプリについて
-
学校で買ったiPadがあるんです...
-
会社のパソコンの監視のされ方...
-
教えてgoo運営から次のようなメ...
-
エクセルでのグループ分け(グ...
-
パソコンを監視されているのを...
-
他人のPCに一切触れずにそのPC...
-
学校支給のiPadはどこまで監視...
-
Excelシート上のオプションボタ...
-
バイト前眠れないです。 大学生...
-
スニフィングについて
-
誰かに監視されてる気がします ...
-
パソコンでペットを監視したい。
-
24時間の監視とフェイク動画
-
squid or delegate
-
集団ストーカー加担者でも被害...
-
大至急‼️学校のiPadについて
-
26歳女です。職場で目をつけら...
-
オペアンプとトランジスタを使...
-
分電盤の208Vとのいみは?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
学校で買ったiPadがあるんです...
-
ネット上ではなく私のパソコン...
-
アプリについて
-
パソコンを監視されているのを...
-
会社のパソコンの監視のされ方...
-
頭の監視
-
人間が嫌いな人って、四六時中...
-
インターネットは常に監視され...
-
バイト前眠れないです。 大学生...
-
誰かに監視されてる気がします ...
-
学校支給のiPadはどこまで監視...
-
他人のPCに一切触れずにそのPC...
-
OVO(OpenViewOp...
-
OpManagerでのトラフィック監視...
-
26歳女です。職場で目をつけら...
-
PC の有料ソフトについて、購入...
-
ラップ音が、自分の思考や行動...
-
教えてgooの投稿を監視削除して...
-
ATMはどうせ無人なのに土日や夜...
-
大至急‼️学校のiPadについて
おすすめ情報