IHMC CmapTools facilitates the manipulation of Concept Maps. IHMC CmapTools () program empowers users to construct, navigate, share and criticize knowledge models represented as concept maps. The IHMC CmapServer has information related to: IHMC, CmapTools, Concept Map, cmap, Concept Mapping, Knowledge Representation, knowledge model, knowledge elicitation, education, CmapServer. If you need help turning JavaScript On, click here. None of the links on this page will work until it is reactivated. SFileName = Replace(rNameCell.IHMC Public Cmaps (2) Warning: JavaScript is turned OFF. If Right(rNameCell.Text, Len(sExt)) = sExt Then 'Make sure to use the extension of the file being copied 'Loop through each cell and rename the file 'Subfolder already exists, got error due to duplicate name MsgBox 'Unable to create subfolder named because it is an invalid name.' & Chr(10) & 'Exiting macro.' 'Subfolder does NOT exist, the provided subfolder name must be invalid If Len(Dir(sFolderPath & sNewSubFolder, vbDirectory)) = 0 Then Row Application.PathSeparator Then sNewSubFolder = sNewSubFolder & Application.PathSeparator 'If the list of rename cells is ALWAYS in the same location, you can comment out the above code, and uncomment the following: If rRenameList Is Nothing Then Exit Sub 'Pressed cancel Set rRenameList = Application.InputBox('Select the cells that contain the rename list.', 'Rename Cells Selection', Selection.Address, Type:=8) 'Pressing cancel will cause an error, resume next will suppress the error and GoTo 0 will remove the On Error condition 'Prompt user to select the range of cells that contain the rename list SExt = Mid(sFileToCopyPath, InStrRev(sFileToCopyPath, '.')) 'Extract the extension SFolderPath = Left(sFileToCopyPath, InStrRev(sFileToCopyPath, Application.PathSeparator)) 'Extract the folder path

If sFileToCopyPath = 'False' Then Exit Sub 'Pressed cancel

SFileToCopyPath = Application.GetOpenFilename('All Files, *.*') 'Prompt user to select file to copy If Len(ActiveWorkbook.Path) > 0 Then ChDir ThisWorkbook.Path 'Start in same folder as the active workbook 'These are invalid characters for the subfolder name (the double quote '' will be evaluated as a single double quote')Ĭonst sInvalidChar As String = '/:*?''|' Algo como esto debería funcionar para usted: Sub CopyFileForEachName()

Simbolo de multiplicar