Variables in Power Point need to be copied to Excel - Microsoft Community


i created quiz game on powerpoint.  variables adding score because able show output box current score of user. need able copy values of variables excel create database. 

code have is: 

dim c_clothes integer
dim c_body integer
dim c_tooth integer
dim c_bath integer
dim w_clothes integer
dim w_body integer
dim w_tooth integer
dim w_bath integer


sub savetoexcel_ampi() 'added
    dim oxlapp object
    dim owb object
    dim row long

    set oxlapp = createobject("excel.application")
    'on mac change \ : in following line
    set owb = oxlapp.workbooks.open(activepresentation.path & "\" & "resultsampi_macro.xlsm")
    if owb.worksheets("forma_ppt").range("b1") = "" then
        owb.worksheets("forma_ppt").range("b1") = "c_tooth"
        owb.worksheets("forma_ppt").range("c1") = "w_tooth"
        owb.worksheets("forma_ppt").range("d1") = "c_body"
        owb.worksheets("forma_ppt").range("e1") = "w_body"
        owb.worksheets("forma_ppt").range("f1") = "c_bath"
        owb.worksheets("forma_ppt").range("g1") = "w_bath"
        owb.worksheets("forma_ppt").range("h1") = "c_clothes"
        owb.worksheets("forma_ppt").range("i1") = "w_clothes"



    end if
    row = 2
    while owb.worksheets("forma_ppt").range("b" & row) <> ""
        row = row + 1
    wend
        owb.worksheets("forma_ppt").range("b" & row) = c_tooth
        owb.worksheets("forma_ppt").range("c" & row) = w_tooth
        owb.worksheets("forma_ppt").range("d" & row) = c_body
        owb.worksheets("forma_ppt").range("e" & row) = w_body
        owb.worksheets("forma_ppt").range("f" & row) = c_bath
        owb.worksheets("forma_ppt").range("g" & row) = w_bath
        owb.worksheets("forma_ppt").range("h" & row) = c_clothes
        owb.worksheets("forma_ppt").range("i" & row) = w_clothes


    owb.save
    owb.close
end sub
excel sheet not saving or copying variables. 

please help. 

thank you, 
laresa

                                               

hi john ,

i was able solve issue on own. problem need have both ppt , excel workbook in same file. 

needed have variables start @ 0.

thank taking time!



Office / PowerPoint / Microsoft Office Programming / Office 365 Home



Comments

Post a Comment

Popular posts from this blog

Outlook Rules not Running Automatically - Microsoft Community

i have 3 rules in outlook 2013 installation set when email arrives check words in body, subject or header.  the rules not seem run automatically.  when run rules manually seem work fine.  i've had problem quite while.  recently, created new outlook profile did not fix issue.  i went , changed srs file srs.old did not fix either. please provide me suggestions fix. hi neil, in order isolate issue, we'd following information: have made recent changes or applied update device prior issue? which email account using? personal email account or work email account? for initial troubleshooting, suggest deleting rules , create again. this, may refer article below: manage email messages using rules looking forward response. Office / Outlook / Windows 10 / ...
Read more

message deleted by transport agent, event: LED=550 4.3.2 - Microsoft Community

i waiting email verification code *** email address removed privacy *** after signing visual studios account. have run message trace see why email not being delivered , given following message: led=550 4.3.2 queue.transportagent; message deleted transport agent i have looked error , saying message being stuck in queue, resolve unfreeze queue. however, in order need exchange toolbox or exchange management, no longer exists office 365 since eac came about. yet haven't found queue viewers in eac can manage , unfreeze queue.   my spam filter set @ 'bypass spam filters'. have whitelisted domain, , have set connection filter allows ip address domain come through. however, after running message trace, email still being dropped. any insight on why happening?  thanks hi suean-work, according description, have try many settings on side. confirm again ‘bypass spam filters’ settings. did mean have c...
Read more

Microsoft Office Exchange Error message - Microsoft Community

Image
received message when trying send email few users outlook desktop client  i checked of users , of them received emails others did not  working within wireless environment in office  any great thank in advance  your message did not reach or of intended recipients.         subject:  fw: panther: hold working sessions gt/rightpont       sent:     6/9/2017 11:26 am   the following recipient(s) cannot reached:         dax scott on 6/9/2017 11:26 am       giulia sergi on 6/9/2017 11:26 am       kia horton on 6/9/2017 11:26 am       micah swigert on 6/9/2017 11:26 am       rob hendricks on 6/9/2017 11:26 am       sarah wallace on 6/9/2017 11:26 am    ...
Read more