Tecnologia, programação e muito Visual FoxPro.

quarta-feira, 4 de agosto de 2010

Re: ]] XL-mania [[ macro create log di excel file

 

Coba :

Public Sub Simpan()
    Dim wbkTarget As Workbook
    Dim shtAktif As Worksheet
   
    Set shtAktif = ThisWorkbook.ActiveSheet
    Set wbkTarget = Workbooks.Add
   
    shtAktif.Range("e5:e10").Copy wbkTarget.Sheets(1).Range("a1")
    wbkTarget.SaveAs "c:\test.xls"
    wbkTarget.Close False
    shtAktif.Activate
End Sub

Regard
Kid.

2010/8/4 Riyadi Akbar <riyadi.akbar@gmail.com>
 

master2 sekalian
saya baru di dunia per macroan .
lagi coba bikin program timer simple
ntar usernya, start time dan end time dimasukin ke excel file lain

kira2 macro gw kaya gini
Dim iFileNumber As Long
Dim strData As String
Dim strFileName As String

iFileNumber = FreeFile()
strData = Range("E5").Value
strFileName = "C:\test.xls" ' the text file
Open strFileName For Append Shared As #iFileNumber
Print #iFileNumber, strData
Close #iFileNumber

nah kalo gw mau datanya itu dari beberapa cell, mislanya E5, E6, E7
tapi masukin datanya juga per cell di test.xls
misalnya E5 ke A1, E6 ke A2, E7 ke A3
next nya ke E5 ke B1, E6 ke B2, E7 ke B3
dst

kira2 bentuk string datanya gmn ya bos?

mohon masukannya
masih newbie nih

thanks a lot ya

Regards,
Riyadi


__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| yak.... tembus 15,000. member ke 15,000 angkat tangannnnn... mau  |
| momods kirimin coklat.... hehehe...                               |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
MARKETPLACE

Hobbies & Activities Zone: Find others who share your passions! Explore new interests.


Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.


Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___

Nenhum comentário:

Arquivo do blog