onko sellaista "vaihto-ohjelmaa", joka lukisi tietokannasta (excel) vanhan tuotenumeron ja laittaisi sen perusteella kansiossa oleviin kuviin uuden tuotenumeron? Ja niin, että ohjelma vaihtaisi vain osan nimestä, jossa ko vaihdettava tuotenumero on ja säilyttäisi vanhan nimen muut osat.
Esim. 1234p1.jpg => 56789p1.jpg
onko jokin funktio tai makrojuttu tms.
kiitos aiemmasta avusta!
Nyt en osaa...
1
80
Vastaukset
moduuliin...
Option Explicit
'vanhat nimet sarake A
'uudet nimet sarake B
'tiedostopääte .jpg
Sub UudelleenNimeä()
Dim vika As Long
Dim vanha As String
Dim uusi As String
Const POLKU As String = "E:\Testi\"
vika = Range("A65536").End(xlUp).Row
On Error Resume Next
vanha = Dir(POLKU)
Do While vanha ""
Debug.Print vanha
If UCase(Right$(vanha, 3)) = "JPG" Then
uusi = EtsiJaSiirrä(vanha, Columns("A:A")).Offset(0, 1)
If Not uusi = "" Then
Name POLKU & vanha As POLKU & uusi
End If
End If
vanha = Dir
Loop
End Sub
Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Kuvat").Activate
With HakuAlue
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
End Function
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1582001
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1311774Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021547- 721250
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171233- 681191
- 220988
- 70815
- 45750
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv194723