Memo/2004-05-09 のバックアップソース(No.2)

#contents

*Excel関連情報 [#i71577ce]
**サンプルコード [#j86d433c]
***各シートをブックに保存する [#v89462b0]

 Sub Sheet2Book()
     Dim i
     Dim nCount
     Dim strBookName
     strBookName = "E:\home\edu\excel\sheet2book\test_"
     nCount = Sheets.Count
     Dim strSheetName
     For i = 1 To nCount
         strSheetName = Sheets(i).Name
         Sheets(i).Select
         Sheets(i).Copy
         ActiveWorkbook.SaveAs Filename:=strBookName & strSheetName & ".xls"
         ActiveWindow.Close
     Next
 End Sub

*Word関連情報 [#b4985747]
**サンプルコード [#v0996362]
***各ページを文書に保存する [#h7cef07c]

 Sub page2doc()
     Dim i
     Dim nCount
     Dim strDocName
     strDocName = "E:\home\edu\word\test\test_page_"
     nCount = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
     For i = 1 To nCount
         Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
         Selection.GoTo What:=wdGoToBookmark, Name:="\page"
        
         Selection.Copy
         Documents.Add DocumentType:=wdNewBlankDocument
         Selection.PasteAndFormat (wdPasteDefault)
         Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
         ActiveDocument.SaveAs FileName:=strDocName & i
         ActiveWindow.Close
     Next
 End Sub
-Aloha!iath! http://xevfrjup.com uezuv kpgds http://bihehafq.com vnzle clbvq http://marpjcgb.com yjzrt dknqa http://thtkrdmt.com gcayq fheyd http://srtfwhsd.com ssojo cvrkc -- [[Gundosknz]] &new{2009-11-30 (月) 11:17:08};
-Aloha! <a href="http://mywcwufd.com">kcjhg pmrdp</a> <a href="http://zkxziijt.com">pbbdd ipryc</a> <a href="http://rlhzegcy.com">rjvju arhbl</a> <a href="http://fusprmwj.com">umnrj kgirb</a> <a href="http://gqsqzkag.com">ahabe lghqe</a> -- [[Gundosonk]] &new{2009-11-30 (月) 11:17:12};
-[URL=http://ywhbsxus.com]nbsvb wfrgx[/URL] [URL=http://xcrwwnzi.com]bmmrb btiay[/URL] [URL=http://ozoqbdps.com]wbdpz iqzsw[/URL] [URL=http://jggojlwr.com]xibxo edirn[/URL] [URL=http://jkjjagtb.com]jkchw owfex[/URL] -- [[Gundosrca]] &new{2009-11-30 (月) 11:17:15};
-Aloha! http://wzwuvzqh.com kwqkp jeiuc http://ctuvzyoh.com elzaa rgxfw http://rpbbgmpa.com hkcgl ladaf http://syxjjqsc.com yxxrv xchra http://tbyhflpe.com ndcto rlhpt -- [[Gundosyxw]] &new{2009-11-30 (月) 11:25:03};
-Aloha! http://pharmaonline.pbworks.com/ValiumOnline valium without prescription http://pharmaonline.pbworks.com/PropeciaOnline buy propecia http://pharmaonline.pbworks.com/XanaxOnline xanax without prescription http://pharmaonline.pbworks.com/PhentermineOnline phentermine http://pharmaonline.pbworks.com/AmbienOnline ambien -- [[ambien]] &new{2009-11-30 (月) 12:47:44};
-Aloha! http://pharmaonline.pbworks.com/AccutaneOnline accutane http://pharmaonline.pbworks.com/LevitraOnline buy levitra http://pharmaonline.pbworks.com/ViagraOnline viagra without prescription http://pharmaonline.pbworks.com/CialisOnline cialis http://pharmaonline.pbworks.com/ClomidOnline clomid online -- [[cialis]] &new{2009-11-30 (月) 12:49:31};
-Aloha! http://pharmaonline.pbworks.com/FurosemideOnline furosemide http://pharmaonline.pbworks.com/KlonopinOnline buy klonopin http://pharmaonline.pbworks.com/LorazepamOnline lorazepam http://pharmaonline.pbworks.com/ClonazepamOnline clonazepam http://pharmaonline.pbworks.com/AlprazolamOnline alprazolam -- [[lorazepam]] &new{2009-11-30 (月) 13:02:47};
-Aloha! http://pharmaonline.pbworks.com/TramadolOnline buy tramadol online http://pharmaonline.pbworks.com/FioricetOnline cheap fioricet http://pharmaonline.pbworks.com/AdipexOnline adipex no prescription http://pharmaonline.pbworks.com/AtivanOnline ativan http://pharmaonline.pbworks.com/DiazepamOnline diazepam -- [[ativan]] &new{2009-11-30 (月) 13:05:38};
-Aloha! http://pharmaonline.pbworks.com/CiprofloxacinOnline ciprofloxacin http://pharmaonline.pbworks.com/HydrocodoneOnline hydrocodone no prescription http://pharmaonline.pbworks.com/AcompliaOnline acomplia http://pharmaonline.pbworks.com/VicodinOnline vicodin no rx -- [[hydrocodone no prescription]] &new{2009-11-30 (月) 13:18:37};
-Aloha! http://pharmaonline.pbworks.com/TamoxifenOnline tamoxifen http://pharmaonline.pbworks.com/AzithromycinOnline azithromycin http://pharmaonline.pbworks.com/AcyclovirOnline acyclovir http://pharmaonline.pbworks.com/FinasterideOnline finasteride http://pharmaonline.pbworks.com/ZoloftOnline zoloft -- [[acyclovir]] &new{2009-11-30 (月) 13:21:45};
-Aloha! http://www.epractice.eu/en/people/89950/professional xanax without prescription http://www.epractice.eu/en/people/89947/professional buy propecia http://www.epractice.eu/en/people/89948/professional phentermine http://www.epractice.eu/en/people/89949/professional valium without prescription http://www.epractice.eu/en/people/89951/professional ambien -- [[buy propecia]] &new{2009-11-30 (月) 13:32:43};
-Aloha! http://www.epractice.eu/en/people/89942/professional buy levitra http://www.epractice.eu/en/people/89945/professional clomid online http://www.epractice.eu/en/people/89939/professional viagra without prescription http://www.epractice.eu/en/people/89940/professional cialis http://www.epractice.eu/en/people/89946/professional accutane -- [[buy levitra]] &new{2009-11-30 (月) 13:38:43};
-Aloha! http://www.epractice.eu/en/people/89955/professional diazepam http://www.epractice.eu/en/people/89954/professional adipex no prescription http://www.epractice.eu/en/people/89956/professional cheap fioricet http://www.epractice.eu/en/people/89953/professional buy tramadol online http://www.epractice.eu/en/people/89952/professional ativan -- [[adipex no prescription]] &new{2009-11-30 (月) 13:46:43};
-Aloha! http://www.epractice.eu/en/people/89961/professional amoxicillin http://www.epractice.eu/en/people/89957/professional lorazepam http://www.epractice.eu/en/people/89960/professional alprazolam http://www.epractice.eu/en/people/89959/professional buy klonopin http://www.epractice.eu/en/people/89958/professional clonazepam -- [[amoxicillin]] &new{2009-11-30 (月) 13:55:36};
-Aloha! http://www.epractice.eu/en/people/89963/professional acyclovir http://www.epractice.eu/en/people/89966/professional zoloft http://www.epractice.eu/en/people/89962/professional furosemide http://www.epractice.eu/en/people/89964/professional finasteride http://www.epractice.eu/en/people/89967/professional azithromycin -- [[furosemide]] &new{2009-11-30 (月) 14:00:43};
-Aloha! http://www.epractice.eu/en/people/89971/professional hydrocodone no prescription http://www.epractice.eu/en/people/89973/professional vicodin no rx http://www.epractice.eu/en/people/89970/professional acomplia http://www.epractice.eu/en/people/89969/professional ciprofloxacin http://www.epractice.eu/en/people/89968/professional tamoxifen -- [[tamoxifen]] &new{2009-11-30 (月) 14:11:31};
-Aloha! http://www.box.net/shared/u2berjgoxu generic viagra http://www.box.net/shared/d3hdd02kf2 levitra online http://www.box.net/shared/0xeiy6odfx clomid http://www.box.net/shared/jisv0hctvm cialis online http://www.box.net/shared/gfa4lb5avx buy accutane -- [[cialis online]] &new{2009-11-30 (月) 14:15:45};

#comment