Merhaba,
Bu orijinali vbscript olan bir programın kabaca vba ya uyarlanmış hali aşağıdadır.
Orijinal program ise dosya yolu clipboard da ise otomatik işlem yapmaktadır.
Bu kısaltılmış halidir. Kendinize göre uyarlamanız gerekebilir. Deneyin.
Sub Makro1()
Dim iURL
Dim objShell
Dim oShell...
...dener misiniz?
met = TextBox1.Text
met = Replace(met, "(", "{(}")
met = Replace(met, ")", "{)}")
Application.SendKeys met
İlave: Alternatif olarak textbox içindeki metni ClipBoard'a kopyalayıp (bunu api yardımıyla yapabilirisiniz) kopyalanan içeriği diğer programa yapıştırmayı da...
Verdiğiniz kod tam istediğim gibi çalışıyor.butona bastığımda tam sarı alanın ortasına yerleştirebilirmiyiz.istediğim şekilde boyutu küçültüyor birde ortalarsa tamamdır
Clipboard'da önceden kopyalanmış bir resim varsa;
Sub Test()
Range("B3").PasteSpecial
ActiveSheet.Shapes(Selection.Name).Width = Range("B3:F3").Width
ActiveSheet.Shapes(Selection.Name).Height = Range("B3:B15").Height
Selection.ShapeRange.LockAspectRatio = msoFalse
End Sub
.
...dosyası kopyalanabiliyor...
' Required data structures
Private Type POINTAPI
x As Long
y As Long
End Type
#If VBA7 Then
' Clipboard Manager Functions
Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
Private Declare PtrSafe Function OpenClipboard Lib...
@Haluk beyin bahsettiği api kodları linktedir. Ben ofis 365 sürümünde çalıştıramadım. Sanırım düzenleme yapmak gerekiyor.
https://social.msdn.microsoft.com/Forums/en-US/e624729a-e8bd-4d16-867f-6bd48000bbaa/copy-file-into-clipboard?forum=isvvba
Arkadaşlar, sorumu tekrar açıklayayım; Excel'de bir hücreye yazdığım bir dosya yolundaki ilgili dosyayı sadece kopyalasın istiyorum. Haluk Bey'in bahsettiği gibi clipboard ile yapılır mı, açıkcası bilmem. Bu şekilde ben de araştıracağım.
Öncelikle elinize sağlık, şöyle bir durum oluştu sayıların arasındaki noktaları kaldırıyor ve yüzdelik sayıları ondaliğa çeviriyor onları nasıl halledebiliriz. birde düzenlemeyi yaptiktan sonra txt kaydetmek yerine clipboard'a kopyalamak mümkünmü
ilgilendiğiniz için teşekkür ederim,
Alternatif kod
'not referenslarda Clipboard.dll nesnesi yüklü olmalı
userforma
1 adet image1 nesnesi ekle
1 adet CommandButton1 ekle
aşağıdaki kodu çalıştır.
Private Sub CommandButton1_Click()
Dim myClp As clipboard
Set myClp = CreateObject("clipbrd.clipboard")
myClp.Clear...
Bu konuyu da inceleyebilirsiniz.
Kod açık olduğu için istenilen şekilde uyarlanabilir.
https://www.excel.web.tr/threads/farkli-programlara-hizli-veri-aktarimi-clipboard-okuma.195390/
...aktarıldıktan sonra ENTER yerine farklı tuş kombinasyonları ekleyerek aynı satır için bir den fazla bilgi girişi de yapabilir.
#include <Clipboard.au3>
#include <GUIConstantsEx.au3>
#include <WinAPIError.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
;Kodların kaynak adresi...
...'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Say = Say +1
If Say = 200 then
Bul = 1
objFile.Close()
'TO CLEAR
'ClipBoard("")
'TO SET
ClipBoard(Bul)
Call diger()
End If
If Say = 400 then
Bul = 2
objFile.Close()
'TO CLEAR
'ClipBoard("")
'TO SET
ClipBoard(Bul)
Call diger()
End If
If Say...
Merhaba
Bu kodları denildiği şekilde uyguladım fakat bir sorun ortaya çıktı, bu kodları uyguladığım «liste» sayfasının yanısıra çalıştığım diğer kitabların sayfalarına geçtiğimde buralarda da kod çalışarak kopyala yapıştırı iptal ediyor ben sadece liste sayfasında bu kodun çalışmasını...
CopyTextToClipboard makrosunu bir kısayola atarsanız, rahat bir şekilde sadece değerleri kopyalarsanız.
'Handle 64-bit and 32-bit Office
#If VBA7 Then
Private Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
Private Declare PtrSafe Function GlobalLock...
...(A1:C1 birleştirilmiş hücreleri)
Range("A1:C1").Copy (A1:C1 birleştirilmiş hücreleri)
Ama bu şekilde değil panoya (clipboard'a) kopyalamak istiyorum.
Panodaya kopyaladığım veriyi istediğim ortama biçimlendirilmemiş salt metin olarak yapıştırmak istiyorum.
Birleştirilmiş hücrelerin içeriğini...
...Dim cBar As CommandBar
Dim cBarCtrl As CommandBarControl
For Each cBar In Application.CommandBars
If cBar.Name <> "Clipboard" Then
Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True)
If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled...
...içinde bu şekilde isimlendirilmiş dosyalar mevcut. Bu dosya isimlerini-uzantıları ile birlikte.., sıralı bir ( 1 den başlayarak..) biçimde CLIPBOARD nasıl alabilirim ?
* Benim yapmış olduğum çalışmada isimleri alıyor., fakat, sıralı değil...
Command buton ile tetiklenecektir...
...& "*.csv"
baslik = Join(Application.Index(Range("A1:K1").Value, 1, 0), ayrac)
Son = Cells(Rows.Count, 1).End(3).Row
Set clipboard = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With CreateObject("Scripting.FileSystemObject")
For i = 2 To Son Step 119...
tekrardan teşekkürler,
veri çek dedigim zaman her bir excel sayfası için "There is a large amount of information in the Clipboard" hatasını veriyor.
birde güncelle butonunu nasıl yapabilirim. sadece gri ile işaretledigim kolonları sıra numarasına göre ilgili yerlere cekebilirim.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.