Příspěvky uživatele

Opět vás zdravím, všechny fandy Excelu.
Zároveň se na vás obracím s žádostí o radu.
Přála bych si ve VBA vytvořit program, který by vypsal přímo do řádků v Excelu výpis, případně celou cestu názvů všech programů v dané složce, a to pod sebe.
Chtěla bych si totiž k datům např.DKP, faktur a pod., přiřadit patřičný soubor jako naskenovaný dokument, pdf, dopis ve Wordu atd. Protože je v dané složce mnoho souborů, jednotlivě bych si mohla k onomu výpisu přidělit ty správné data na onen odkaz.
Děkuji za pomoc

Děkuji za podnět. Aplikace nefunguje, nicméně, jsem se rozhodla vytvořit objektOLE, at už je to obrázek, Word, PDF apod., vždy se mi načte a při ukončení nebo i změně starý objekt vymaže.
Dvojklikem si ty dokumenty otevřu, alespoň nemusím řešit tisk či náhled, pokud je více stránek.
Ještě jednou díky za vstřícnost
Zdena

Zdravím všechny fandy VBA.
Obracím se na vás s žádostí o radu a pomoc.
Vytvořila jsem si v Excelu 2007 na listu objekt, který mi načte a vloží dokument WORD. Pokud v stavovém řádku upravím např.:
Objekt 1 =Word.Document.12|'C:\Excel\WORD\výpoved01.docx'!''''
za
=Word.Document.12|'C:\Excel\WORD\výpoved02.docx'!''''
tak se automaticky načte druhý zvolený soubor
Marně se snažím vymyslet to ve VBA:
ActiveSheet.Shapes("Object 4").Select
Selection.Formula="Word.Document.12|'C:\Excel\WORD\výpoved02.docx'"""
tak to nefunguje!!!
Může mi někdo, prosím pomoci nebo existuje snažší či jednodušší načtení dokumentu z WORDU do Excelu? Obráceně je těch rad na NETu mnoho..
Děkuji

Děkuji. A pokud by to bylo z DIM?
Nechci použít for-next. Děkuji za odpověď.

Děkuji, nicméně cca po 6 zrušení odeslání, se outlook sekne. Přesto děkuji ještě jednou

Zdravím. ještě jedna prosba.
Přílohu txt odesílám v Outlooku, nyní jsem ve fázi testování a tak nepoužiji send, ale při zrušení připraveného odeslání mailu, se mi outlook zakousne.
Kde, prosím, dělá soudružka z NDR chybu? děkuji za pomoc.

Sub var_4(): Application.ScreenUpdating = False
Dim Adresa As String: Dim sb1 As String
sb1 = "C:\obchod\export.txt"
On Error GoTo ERR1
Dim objOutlook As Object: Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application"): Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "x.y@seznam.cz"
.CC = "x.y@tiscali.cz"
.Subject = "export " & Now
.Body = "data " & Range("menu!b1")
.Attachments.Add Adresa & sb1
.Display
'.Send
End With
Set objOutlook = Nothing: Set objMail = Nothing: Exit Sub ':MsgBox "e-mail odeslán": Exit Sub
ERR1:
MsgBox "e-mail nebyl odeslán" & Chr(10) & "zkontroluj pripojenie na server", 32
UserForm1.Label28.Caption = "NEODESLÁN": Exit Sub
End Sub

Zdravím.
Lze, prosím, odeslat - exportovat data do txt jako tkzv. balík, bo mám již více jak 2200 řádků a 10 sloupců nebo data setříděna v DIM(2199,9).
Export trvá již několik sekund. Pozor data obsahují datum, text, čísla i prázdné buňky( nulové hodnoty).
Doposud jsem to dělala takto :
Open Filename For Output As #1
For a = 1 To xx: For b = 1 To yy: Data = Range("Celkem!a:z").Cells(a, b) ' nebo dim_m(a-1,b-1)
If IsNumeric(Data) Then Data = Str(Data)
If b <> 10 Then
Write #1, Data;
Else
Write #1, Str(Val(Data))
End If
Next a,b
Close #1
Děkuji za pomoc

Jak jednoduché a funkční.
Děkuji

Promiňte mi, nebyla jsem na NETu.
Pro vysvětlení:
při stránkování v listu jsem chtěla přejít na 1.pozici viz CTRL+HOME, ale po akci VBA S

endKeys... se mi přepne NUMLOCK Off, pokud následně opakuji ten příkaz, opět se přepne NUMLOCK On a stále dokola.
Přála bych si využít ve VBA zmíněný CTRL+HOME, ale zároveň, aby zůstal NUMLOCK stále zapnutý.
Děkuji za trpělivost

Nefunguje to, tohle řešení jsem našla na NETu
Prosím o jiné řešení.
Děkuji

Pokud zadám ve VBA funkci SendKeys "^{HOME}",
tak se vypne NUMLOCK, opakovaná funkce SendKeys "^{HOME}" následné zapne NUMLOCK a tak dokola.
Potřebuji, aby po vykonání funkce zůstal NUMLOCK aktivní.
Děkuji za pomoc

Prosím o pomoc
programuji ve VBA a přeposílám data v txt souborech přes mail. Při načtení a zpracování,
mám problém s převodem datumu...
Je totiž uložen jako string např. "01.02.2013"
zkoušel jsem to i přes datevalue(), ale je to nespolehlivé.
V Excelu 2007 to nakonec běží, ale v Excelu 2010 to zase kolabuje.
děkuji za pomoc

Může mi, prosím, někdo poradit.
při kopírování dat ve VBA se mi nakonec zobrazí hlášení " schránka obsahuje vel.množ.dat..".
Lze toto hlášení nezobrazovat nebo alespoň nastavit v makru jako NE ( tedy neuchovávat )
Děkuji za pomoc

Zdravím.
Já jsem to řešila přes 1 nebo 0 v některé vybrané buňce. Pokud při startu makra změní hodnotu, tak v jiném makru mám podmínku, že pokud hodnota není 0 nebo 1 tak EXIT SUB. Těsně před skončením operace makra byla opět hodnota v buňce změněna.
Nemám s tím problém.

Zdravím.
Alt+F11 a zvolíš list, zde zkopíruj
Private Sub Worksheet_SelectionChange(ByVal Tg As Range)
Range(Cells(1, 1), Cells(20, 20)).Interior.ColorIndex = xlNone
If Tg.Row < 20 And Tg.Column < 20 Then
Range(Cells(Tg.Row, 1), Cells(Tg.Row, Tg.Column)).Interior.ColorIndex = 34
Range(Cells(1, Tg.Column), Cells(Tg.Row, Tg.Column)).Interior.ColorIndex = 34
Cells(Tg.Row, Tg.Column).Interior.ColorIndex = 6
'varianta 2
'Range(Cells(Tg.Row, 1), Cells(Tg.Row, 20)).Interior.ColorIndex = 34
'Range(Cells(1, Tg.Column), Cells(20, Tg.Column)).Interior.ColorIndex = 34
'Cells(Tg.Row, Tg.Column).Interior.ColorIndex = 6
End If
End Sub
S pozdravem

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje